14 



Asmi I 




0000 OT 



DFFN ;i 



THE BtW?irOU<»HS ALSEBRAIC COHPILFR 
OUTWT TAPE UNIT 



a 



(g4l4ot) 



xS. ?^- 


ocm 


T 


C^TN 


^.2 


PROGRAM TAPE UNIT 


J6 


0000 


pmn 


0€FN 


2 


Pewter' unit 


17 


0000 


yO0ox 


■oe-FM 


69 




18 


0000 


LODOV 


mfH 


71 




|« 6 




MSIZB 


DEFN 


4999 


SIZE OF MEMORY 


to 


0000 




LOCN 







21 '0 


0000"; 


' BUF 


0€FN 


* 




22 


0000 




Bi/N 


LOD 




23- -0 


0001 




B'JN 


STOf^F 




?s a 


000? 


dOD 


MRW ^ 


t 


TAPE UdA0tN<5 ROUTINE 


2* 


0003 




-CLB 




FOR FIRST PffASE 


21 


■0004 


-^A 


mc 5 


0»T»10 




.2830. 


0005 




LDe 


•*+l 




2^ 


mo6 - 




CLA 


999 : 




-3 a. 


0007 


' *R 


ADD - 


■ 




^1 


oooe 




OB® 


8-fl 




3?'' 


0009 




PZA 


C+ 




33 


00 ID 




SPO 


E4»4 


SUM CHECK MONZERO 


34 


0011 




HPB '4- 


Tf 10 


CAUSES TYPEOUT AND HALT 


35 


0012 




F424 


«fe69»0>9669 


5tr 


0013 




LDB 


B- - 


PRESS START TO TRY AGAI?^ 


-:?7 •" 


0014 




BU^ 


A- 




s«-, 


0015 


*c ■ 


DFL 


*+l*Ilf 1 


FIVE TIMES 


^% c 


O016 


*G 


F424 


4000. 42» 


S- TEN SLOCKS 


40 


0017 




IBB ' 


-;»--H»999 


999 LOCATIONS PER BLOCK 


4l' 


0018 




STB = 


8-»04 : 




42 


00 29 - 




PRP 


A- 




43 


00? 




BUN 


46 




44 


■ 0021 


«-E 


CN5T 


SSCHECK 


SUM ERROR$$ 


.45 


0025 




LOCN 


46 




46 


0046 


*D 


LDB 


Z + 


READ LAST BLOCK INTO THE 


47 


0O47 




MHC 5 


OfTfl 


END OF MF^40RY 


48 


0046 




LDB 


*^1 


(THIS HOLDS PATCHES ANO 


49 


0049 




CLA 


99 


CORRECTIONS* IF ANY) 


50 0: 


0O5O ■ 


*Z 


ADD - 


MSI/F-99 




51 


0051 




DRB 


♦-1«1 


SUM CHECK IT» TOO 


32 


0052 




RZA 


D4 




$3 


0053 




SPO 


E-»4 




54 


0054 




KPB 4 


^T*l 




55 


0055 




F42i- 


9669 » 00 # 


9669 


^6 


0056 




BUN 


0- 




57 


0057 


*D 


DFL 


G-*ll»5 




5a 


0056 




sta 


B-»04 




59 


0059 




BOF 


STACK 


TAPE STORING ROUTINE. 


62 


0060 


STORF 


NIRW 4 


T 




63 


0061 


*B 


L[>B 


*-i-l 


REWRITES COMPILER FROM C 



:ORE 



? 30 0^30 HLT 

2 31 0231 HLT 

■Z S^A' vj4!:3^ tit I 

2 33 0233 HLT 

2 34 0^34 HLT 

2 35 0: 0235 HLT 

2 3^ 0236 HLT 

2 37 02 37 HLT 

2 38 023B VI HLT 

2 ^9 O;^ 0239 V2 HLT 

2 40 OZi^Cy V3 T-rCT 1}- 

2 41 Q 0241 V4 F244 2i»X0NE*0 

2 42 0242 V5 F244 20*F0fNF»0 

2 #3 0243 V6 F244 21»XZe:ro>0 

244 0?4A V7 '^244 20 fF/^EROfO 

.2 45 0245 V3 F244 409LALF»0 

2 46 0246 V9 - HLT 

2 47 0247 VlO F24-4, 21»XTWO»0 

#48 0748 Vll F244 20»FTWOfO 

•02 49 0249 VARB HLT ' M5IZE LAST lOCA-TlO^^ t>SFD 

2 50 0250 VIMAG HLT CURRFMT V-OPERAND 

2 51 0251 V DFFN Vl~l 



V*OPERANDS ARE SET UP BY GENERATOR 
AND USFOvBY ASSrMBLFR 



rONSTANT 1 
CONSTANT UO 
CONSTANT 
CONSTANT 0»0 



CONSTANT 
CONSTAf^lT 



7 

/ • vJ 

FOR 



TARGFT VARIABLESfETC* 



2 54- 
2 55 
2 m 

2 31 

2 :5-S- 



59 

60 



#1 
62 



7. 

2 

2 

2 

2 63 

2 64 

65 

66 

67 
66 

70 

'•"'2 71 

2 72 

2 T? 



0251 
0252 
0253 
0254 
0255 
0256 
0257 
025B 
0259 
0250 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
268 
0269 
0270 



SW2 
5W3 
SW6 
ALPHA 

y ^ " i^ ' !\ 
FPSL?^ 
KARPA 
PHI 

cm 

CHI 3 

OMEGA 

FHSW 

PARSW 

^AG 

XI 

LA*'10A 

PI 

IOTA 

OMCRN 



HLT 

HLT 

HLT 
HLT 

ni~ ! 
HLT 
HLT 
HLT 
HL~ 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
MtT 



BY TRANSLATOR 
PROCESS !^4G SCALE FACTOR 
DECIMAL POINT SENSED IN CONSTANT 
WE MTGHT V.^A^4T IMPLIFO MULTIPLICATION 
CONTROL OF ITERATION LIST 

HUHHFP. OF FXTPRNAL THINGS 

FMPTY Sl.'P SCRIPTS HAVF AP^FARFD 

IGNORE NFXT LEFT RAR:?'f«THFSl S 

NEXT FORWARD RFFtRFNCF IS I'^CREHENTED 

MONITOR LABELS IH CURRE'IT PROGRAM 

^40NITOR LABELS OUTSIDE OF PROCEDURES, , 

f^OR MODE IN ASSIGNi^ENT GEMFRATOR 

PROCESS INS FUNCTION DECLARATION 

PROf'^SSING PROCEDURE OR ^UNCTIOM PARAMETER.> 

IDENTIFIER IS A LABEL 

LAST INSTRUCTION A^SFM^^L-D WAS :LT10 

OTHERWISE HAS APPEARED Vi EITHER IF CASE 

PUT FORWARD REFERFMCE OPERATORS ON EXEc STACK 

ARRAY NOT YEf DECLARER 

IGMORE ^'EXT SrwicOLO^^ 



2 76 

2 77 Q 

2 76 

^ 79 

2 80 

2 81 

2 82 

2 8-^ 

002 84 

2 85 



027? 
0273 
0274 
0275 
0276 
0277 

0278 
027Q 



AVAI! 

FUNS 

OP 

ARAS 

DIMS 

EXFC 

FV 

MULS 

N10DE 

MULT 



F424 
F424 
F424 
F424 

F4?4 
F42^^ 
F424 

F424 
F424 
F424 



5TACK: 
0000 »0»0 
FUMS»O*0 
OP » ♦ 

aras»o#o 

D!MS?C»0 
EXEC?0»0 

FV * « 

MULS»0»0 

MODEfO^NRMMD 

>Li i 1 1 T ^ r\ ^ r, 



IN ASSOCIATIVE MEMORY 

E- p r p: n*.; jp ^ OC A T I ON S 

CONTROL OF PROCERURrt FUNCTION CALLS 

OPERATORS WAITING TO ps USED 

INCRE'^TNT WOROS FOR ARRAY 

ARRAY DI'^^ENSICMS 

FORWARD REFERENCE 

FOR VARIABLE 

DIN'FNSIONS 

;^COE T'^ANSLATO^ IS IN 

''l VJ L. ...> ,., ■ .H V- <V O A \_ iX »V l-\ '"\ : / -^i 



TO FOR LOC^ 



{ INITIALLY NORMAL) 



2 


86 





2 


87 





2 


m 





2 


89 





2 


90 





2 


9*1 





2 


92 





2 


^3 





t 


<^4 


;^ 


2 


95 





Z 


98 





t 


m 





3 


m 





3 


01 





3 


02 


o' 


3 


03 


D 


3 


04 





3 


05 





3 


06 





3 


07 





3 


08 


a 


3 


09 





3 


10 





3 


11 


'0 


3 


I? 





3 


13 





3: 


14 





3 


B 





:3 


16 





3 


17 





■4 


16 


t\ 


J 


■V 


3 


1^ 





3 


20 





3 


21 





3 


22 


.fy 


3 


23 





3 


24 





3 


25 





3 


26 





3 


17 





3 


2B 





3 


29 





3 


30 





3 


31 





3 


32 





3 


33 





3 


3U. 





3 


35 





3 


36 





"k 


37 





3 


33 





3 


39 





3 


40 






0281 
CZB2 

0283 

0284 
0285 
0206 
02B7 
023B 
0289 
0290 ■ 



0291 
0291 
0292 
vP293 
0294 
0295 
0296 
0297 
0298 

0299 

300 

0301 
O3O2 
0303 
0304 

0305 
0306 
0307 
0308 
0309 

0311 
0312 
0313 
0314 
0315 
0316 
C317 
0318 
0319 

1^ -, 'x r\ 
W _-> /; U 

0321 
0322 
0323 
0324 

03?5 

0327 
0328 
0329 

0330 
0331 
0332 



OPRND 

PARFF 
PRl 

PR 3 

RV 

S \V E T 

SETUP 

XVP 

DUMaS 



OPT AS 
CRA 

cm 

CRC 
DOT 
RPAR 
CRD 

CRE 

CRF 

CRG 

C^H ' - 

PLUS 

fRI 

CRJ 

SMCLN 

FXPM 

CRK 

T^MPl 

CRM 

CRN 

hyph 

SOLD 
Cf^P 
KOWA ■ 
LPAR 
CRQ 

CRR 

/- 7 <t, 

CRT 

rRU 

CRV 

CRW 

CRX 

■SBST 

CRY 

CRZ 

TEMP 3 

BRFF 

TOP 

CWFNO 

CWNDX 

CWARD 



F4^4 
F424 

F424 
F424 
F424 
F424 

F424 
F424 

^■42 4 
F42_4: 



OETH 

F2443 
■F2441 

F2442 
F2440 
T?A40 
F2441 
F244> 
F2441 
F244 2 
F24^2 
F2440 
F244? 
F2442 
F2446 
F2441 
F2443 

cnsr- 

F2443- 
F2441 

• *.'t-T- 4.-, 

r2443 

F2440 

F2r443 

F244 6 

F2440 

F244 3 

F?441 

F2443 

F2442 

r £.'4-'^ ■' 

F244 3 

F2443 

F24i3 

F2446 

F2442 

F2442 

C?*iST 

F2445 

CNST 

F2446 

F2Vf6 

F2446 



OPRND»0»0 
PAREFtO»0 
Pk3>0»0 
PR3»0»0 

RV»0»0 
SaVET fO^O 
SFTUPfOtO 
! FMP'>*0-*0 
XVP»0#0 

:i5y?i^jis:»o>o 



Of 

01 
00 

1 ? 

00 
41 

oo 

00 

00 

00 
10 
00 
00 

oc 

14 

00 



00 

00 
4 } 

14 
11 
00 
00 
00 
00 
40 
00 
00 
00 
00 
00 
00 
00 
00 
00 

n 

00 



00 

00 

00 



CRA»1 

GCRP.*!' 

GCRC»1 

0048 •! 

00 00 ♦ 3 

GCRDfl, 

GCRF f I 

GCRFfl 

GCRGfl 

GC9H*1 

OCOO«1 

GC^Ttl 

GCRJtl 

SEMI,5 

GFXPNtl 

GCRKtl 

GCRMfl 
GCRN»1 

GHYPH»1 
0024*1 

GCRPtl 
COMMA* 5 
0000<.2 

GC-0#1 
GCRRfl 
GCnS#l 
GCitlfl 

/- /—ni I * I 

GCRVM 

GCRi^'»l 
GC^Xfl 
FQUl ♦'; 

GCRYfl 

00t)0 ♦ 1 

NnXMD»4 

ARDFCfl 



OPERAf^DS WAITING TO BE USED 
RFFERcNCC TO PROCEDURE PARAMETERS 
PREFIXES outs IDE OF PROGEOURES 
CURRENT PREFIXES 
FOR VARIABiF (BACKWARDS) 
TEMP STORAGE CELLS SAVED 
pcfrfrppMcfr TO A PROCEDURE PARAMETER 
TEMP STORAGE CELLS AVAILABLE 
ARRAYS |M MULTIPLF INDEXING 

LFvrLs: ;wh:eR!e _ nUMP ; card _ apptars 



TABLE OF OPERATION SYMBOLS 

00 INPUT OR OUTPUT 

01 EQUAL 

02 FUr4cTlON CALL COMMA 

03 .» MULTIPLICATION 

04 ) RIGHT PARENTHESIS 

05 MOO COW MA 
OS EI FhER 

07 ARRAY DECLARATION 
OS ARRAY DECLARATIOr^ 

09 SWITCH 

10 ^' ADDITION 

U. Tf^PUT OR OUTPUT 

12 INPUT LABEL COMMA 

13 S SFMlcOLOt4 

\i^ % EXPONENT I AT I Oi-i 
15 OUTf^UT LABEL GOMHA 
P40T USED 

17 MONITOR 

18 PARAMETRIC ARRAY 

19 FUNCTION CALL 
70 - NEGATION 

21 / DIVISION 

22 PROCEDURE 

23 f COMMA 

7h. c l^ft parf^ithesi :> 

25 PROCEDURE 

26 ARRAY 

27 SUBROUTINE 

28 GO TO 

3 SEGMENT 

31 OTHERWISE 

32 FOR 

33 a ASSI GN'^'E^J"^ 

34 FIX 
3 5 STOP 

NOT USED 
37 BACKv/ARD REFERFNCF 
NOT USED 

39 END 

40 ARRAY CALL 

41 ARRAY DECLARATION 



3 


41 





3 


42 





3 


43 




3 


44 





3 


45 





3 


4€ 





3 


47 


G 


3 


48 







49 





3 


50 


0. 


3 


51 


.0 


,■ 3' 


54 





3 


55 


0^ 


3 


56 





3 


57 





3 


56 





003 


59 





3 


60 





3 


61 





3 


62 





3 


63 





3 


64, 





3 


65^ 


'0 


3 


66 





3 


67 





3 


6S 





3 


69 





1 


70 





3 


71 





003 


72 





3 


73 





3 


74 





3 


77 





3 


78 





3 


79 





3 


80 





3 


81 





3 


82 





3 


83 





3 


84* 





3 


85 





3 


86 





3 


87 





3 


88 





3 


89 





3 


90 





3 


91 





3 


92 





3 


93 


Q 


3 


94 





3 


95 





3- 


96 






0333 
0334 
0335 
0336 
0337 
0338 
0359 
0340 
0341 
0342 
0343 



0344 
0345 
0346 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
03=^5 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 



0364 
0365 
0367 
C368 
0369 
0370 
0371 
0372 
0374 
0375 
0376 
0377 
037B 
0379 
0380 
0381 
0382 
0383 
0385 
0386 



CWEMP 

CWLAB 

CWAPN 

CWCLN 

BOP. 

OP IF 

RGEO 

RLEQ 

OPWaX 

0PM IN 

CROY 



ARAMO 
ARFMD 
DCLMD 
TNTMD 
FLTMD 
^ORMD 
FRMMD 
FUMMf> 
INNMD 
MAXMD 

MODMD 
NDXMD 
NRMMD 

OUTMD 

swmd 

FNCND 

LABf-^f:* 
FXTMD 
MFMMD 



subgn 

UNTgN 

inpgn 

rftgn 

IFGN 

ihpgn 

DRGN 
GOGN 

outgn 
eitgn 



F2446 

F2446 
F2446 
F2446 
F244 
F2442 
F2448 
F244n 
F2440 
F2440 
F2443 



F244 

F244 

DEFN 

F244 

F244 

F244 

F2449 

,F244 

F2449 

F244 

F244:. 

F244 

F24A 

FZ441 

F2^49 

F244 

F244 

F244 

f^2442 

F2449 

F2447 



F4246 

CNST 

F4246 

CNST 

F4246 

CNST 

F4246 

CNST 

F4246 

CNST 

F4240 

CNST 

F4246 

CNST 

F4246 

CNST 

F4246 

CNST 

F4246 

CNST 



00#FMPTY#3 
00»LAPMD»4 
OOf ARAPrt i 
0OtF''-^'NMDt4 
22*0203 ♦! 
00 ♦ G ! F # 1 
0l#0024#l 
01 fOOl? f 1 
O0*0l00f I 
O0»0ll?tl 
22fGCm>^¥l 



0#ARACMfARRAY 
0»ARFCM«ARFCM 

0»DCLCM»!NTG 
O^DCLCMfFL FG 
1»F0RCM»F0R 
0».FRMCM»FRMT 

IfPUTCMf INPUT 

OfMAXCH»NORM 

0»MiNCMfNORM 

OfMOOCMfNORH 

0»Nf>XCH»T,NDFX 

10»0»0 

IftPUTCHfOUTPT 
Of PRCCMsPROCD 

o»swcm»sv;tch 
0»prcch#func 

0,»LABCMfLARFL 

ItFRHCMfEXTRN 

1>ARACW#MEMST 



7OOl»OfSU0R 

SSUBROUTINFS 

7001.0»UNTlL 

SUNTILS 

7004»0»INNMD 

SIHPUT% 

7001>0»RFT(N 

SRETURNS 

7691 tO»IF 

SIFS 

7001 • 20 f 1209 

SI-MPLS 

7001tO#OR 

$0R$ 

7001 ♦0#GC 

$GOS 

7004pO#OUTMD 

SOUT^^UTS 

7001»C»FTHR 



42 FNP7Y SUBSCRIPT 

43 LABEL IN r>pcLARATlON 

44 ARRAY PARAMETER 

45 FUNCTION ♦PROCEDURE CALL 

46 BOOLFAi-: CR 

47 IF 

48 GEO 

49 LEQ 

50 MAX 

„51 MIM 

5^ TRACE 

VARIOUS HODES 

ARRAY DECLARATI0^4 MODE , 

ARRAY-FILL MODE 

TYPE DECLARATION MODES 

INTEGER OECLARATIOK MOOE 

FLOATING DECLARATION MODE 

FdR MODF (PROCESSING ITERATION LISTl 

FORMAT DECLARATION MCOE 

FUNCTION HODE (SETTING UP PARAMETERS) 

INPUT DECLARATION NiODE 

y.tX iMODE 

MlH MODE 

MOD MODE 

j^;OEX MOOF (PROrt'"-ST WG SUBSCRIPTS) 

NORMAL MODE 

OUTPUT DFCLARATTON MODE 

3V/ ITCH MODE 

function declaratton mcde 

laeel mode (outside of i-o^fori^^at modes) 

fxtprnal mode 

trace mode 

reserved words 



(DO A SLA 4 ON 
TO GET THEIR 



THESE CODES 

TRUE EIGNIFICANCF) 



$EI 



:r$ 



3 


97 





0388 


BOOGN 


F4246 


7004»0*INTMD 


3 


9B 





0369 




CNST 


SSOOUEANS 


3 


99 





0391 


C0M6N 


F4246 


700l»0tCOHNT 


4 


00 





0392 




CNST 


$CO«NENT$ 


4 


01 





0394 


LEQGN 


F4246 


7001*01*12 


4 


02 





0395 




CNST 


SLFQS 


4 


03 





0396 


FORMG 


F4246 


7004»OfFRMMD 


Zt 


A/. 


G 


A'»ri"7 




j^ M C T 


<r. c no M y* T <r 




y^-^ 




•> J 7 r 




V, •■* -J •. 


■if ! \ji^.'-i ,". > •*> 


4 


05 





0399 


mingn 


F4246 


7404»0»MINI^iO 


4 


0^ 





0400 




GNST 


$M|N$ 


4 


07 





0401 


nfogn 


F4248 


7001 ♦OIV 6 


4 


08 





0402 




CNST 


SKFQS 


4 


09 





0403 


FLOGN 


F424& 


7004»0tFLTN^D 


i. 


10 





04 04 




CNST 


$FLOA TINGS 


4 


11 





0406 


intgn 


F4246 


7004*0 »INTHD 


4 


1? 





C407 




CNST 


S INTEGERS 


4 


n 





C40C 


forgm 


F4246 


7004»0»FORMD 


4 


14 





0410 




CNST 


SFORS : 


4 


15 





0411 


PROGN 


F4e46 


7004*0 ♦PRCMD 


4 


16 





0412 




CNST 


$PROCEDURE$ 


4 


17 





0414 


MAXGN 


F4^46 


7404»0»MAXHD 


4 


18 





0415 




CNST 


$MAX$ 


4 


19 





0416 


FINgN 


r4246 


700l*OfFTNSH 


4 


20 





0417 




CNST 


SFINISHS 


4 


21 





0419 


PCSGN 


F4242: 


7401»41*GPC5 


4 


22 





0420 




CNST 


SPCSS 


4 


^3 


0. 


0421 


5EGGN 


F4246 


7001*0#5GMT 


4 


?4 





0422 




CNST 


SSEGMENTS 


4 


25 





0424 


fS\ i ^* Jim Ki 

OvtGiH 


F4246 


7 00 1*0* V RL Y 


4 


26 





0425 




CNST 


SOVERLAYS 


4 


27 





0427 


entgn 


F4246 


7001*0* Fro FR 


4 


28 





0428 




CNST 


SENT&RS 


4 


29 





0429 


gT^gN 


F4248 


TOOltOlf 18 


4 


30 





0430 




CNST 


$GTR$ 


4 


31 





0431 


AmGH 


F4246 


7004 f0*AR AMD 


4 


32 





0432 




CNST 


$ARRAV$ 


4 


33 





0433 


oThgn 


F424 6 


7005 »Cf WISE 


4 


34 





0434 




CNST 


SOTHERWI SF$ 


4 


35 





0436 


fungn 


F4246 


7004*0fFNCND 


4 


36 





0437 




CNST 


SFUNCTIONS 


4 


37 





043*^ 


NOTG'J 


F4242 


7001*24*GBNOT 


4 


38 





0440 




CNST 


$NOT$ 


4 


39 





0441 


LSSGM 


F4248 


7001»01»3 


4 


40 





0442 




CNST 


SLSS5 


4 


41 





0443 


mongn 


F4246 


7001 >0f MONT 


4 


42 





0444 




CNST 


SMONITORS 


4 


43 





0446 


5WIGM 


F4246 


7004*0»SWMD 


4 


44 





0447 




CNST 


S SWITCH?^ 


4 


45 





0449 


STOGN 


F4246 


7001*0*5T0P 


4 


46 





0450 




CNST 


SSTOP$ 


4 


47 





0451 


FIXGN 


F244 


06*FIX*0 


4 


48 





Q452 


GSFG 


F244 


14*5EGGN*0 


4 


49 





0453 


Gf^ARR 


F244 


io*arrgn»o 


4 


50 





0454 


AHDGH 


F4240 


7001*23*0200 


4 


51 





0455 




CNST 


SANDS 
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0908 




BCL 


SCN3 


9 26 


0909 


SCN8 


STP 


CLASX 


9 27 


0910 




BUN 


CLASS 


9 28 


not 1 


c> r M A 


CLL 


Kl 


■>. .' Jr J, 


%. ■ H^ • -« -^^ 






009 2^ 


OQl? 




TFL 


Kl»00«10 


9 3C 


0913 




^UM 


SCN3 


9 31 


0914 


SCN7 


CLL 


<2 


09 3,? 


0915 




IFL 


K2»00»10 


9 33 


0916 




PUN 


SCNl 


9 36 


0917 


*B 


IFL 


SWU62»29 


9 37 


0918 


RI 


CLL 


K2 


9 38 


0919 


SWl 


HLT 


SCNl 


9 39 


0920 




LBC 


1/ 


9 40 


0921 




CAD 


S2 


9 4! 


0922 




SLA - 


■ 3 


9 4? ^ 


0923 




DLB 


K • 94 • 


9 43 


0924 




ADL - 


- SYMBL 


9 44 C 


0925 




IFL 


Kf02f2 


009 45 


0926 




BOF 


B- 


9 46 


0927 


^-A 


B'^H 


SCNl 


9 49 


0«>28 


R2 


5TP 


ALPLX 


9 50 


0929 




pUN 


ALPL'J 


9 51 


093 




CFR 


PRCMD»64 



BRANCH IF EITHER 
SCANNED CHARACTER IS BLANK 

OTHERWISE INDEX INTO TABLE AND 



IF THE PAIR IS ILLEGAL* 
WRITE ERROR MESSAGE 
IMPROPER CHARACTER PAIR 



BLANX ALPHA •#« TO R13 
BLANK fiUMBER «#• TO R24 
BLANK OTHER ••« TO SCNl AGAIN 

IF RIGHT CHARACTER IS BLANK* 
GET THE NEXT NOMBLANK CHARACTER 



THEN COWPLElE THE PROCESSING OF THE 

LEFTHAMD SYMBOL |N THE CASES 0^ 
ALPHA-ALPHA f ALPHA-NUMBER 



BLANK OUT LEFTHAND SYMBOL ANH RECYCLE 



BLANK OUT BOTH SYMBOLS AND RECYCLE 



AA AN 

THIS CHARACTER IS PART OF 

AN IDENTIFIER 

STORE IT IN SYMBL AREA 



If IDENTIFIER IS MORE THAN 50 CHARACTERS 
IN LENGTH' TRUNCATE IT TO 50 



A( 

WE HAVE MANY CASES TO EXAMINE* 

LOOKUP IDENTIFIER FIRST 



9 


52 





9 


93 





^ 


54 





9 


55 





9 


56 





9 


57 





000 


58 





W V T 


.lt<5 


A 


9 


60 





9 


61 





9 


62 





9 


as 


n 
W' 


009 


64 





9 


65 





9 


66 


c 




67 





9 


68 





9 


69 





9 


70 





Q 


71 





9 


7? 





q 


73 





9 


74 





9 


75 





9 


76 


'•^ 


09 


77 





009 


78 





9 


79 





-G9 


80 





-09 


Bl 


'1 


9 


32 


Q 


9 


83 





i)09 


84 





09 


85 





009 


86 





009 


87 





9 


ae 





9 


89 





9 


oO 





9 


91 





9 


92 





9 


93 


;^ 


9 


94 


A 


o 


95 





9 


9'6 





9 


97 





9 


96 





9 


99 





Q.}0 


00 





'■10 


01 


n 


010 


02 





010 


03 





010 


04 


.'"' 


OlC 


05 





010 


06 






0931 
0932 
0933 
0934 
0935 
0936 
0937 

0939 
0940 
0941 
0942 
094? 
0944 
0945 
0946 
0947 
0948 
0949 
09 50 
0p5! 
0952 
0953 
0954 
0955 
0956 
0957 
0958 
0959 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
09 68 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
097^ 
0979 
0980 
0981 
098? 
0983 
0984 
0935 





LDB 


FUNS 




CAD - 







BCU 


D^- 




BSA 


A+»0 




DLB 


L»64»00 




BSA 


C+93 




IFL - 


0»11#5 




CTp 


FRMcX 




BUN 


FRME 




cm 


CMfK^^. 




SUNi 


SCN5 


iiC A. 


T f ~ » 


n .■»-». 1 rt 


^f\ 


I r '_ "~" 


V-' * y / t I w 




DUB 


L » 64 ♦ 




LDR ~ 







BFR 


B+»ll fO 




STB *. 


0«11 




STP ■ 


WFMX 




Rl-'N 


WEf^»A-+l 




rNST 


3060810C000 


»B 


!fL - 


Oill>8 




CAD 


LOCN 




sta - 


0»64 


R2P 


STP 


FRMEX 




BUN 


FRME 




BUN 


SCNl 


*c 


DFL - 


OtUt'l 




STP 


FRMEX 




RUN 


FRME 


-^"e 


4 T\T> 

L iV rs 


SC7 




BUN 


PRCNT 


*D 


CFR 


FUNMnt64 




ecu 


F+ 




BSA 


F+il 




STP 


FRMFX 




BUN 


FRME 




LOB 


■ F'JNS 




CAD - 







DLB 


Lf64»00 




LDR * 







BSA 


G+»2 




BfR 


E'~#ll*6 




BFR 


P-.,ll .4 




BFR 


E-»ll«8 


-^T 


STP 


WEMX 




BUfI 


WFM#F- 




CNST 


30111 13 0000 


*G 


BFR 


H+#11 ,5 




BUN 


T-» 


>^F 


OLB 


L»64*00 




CAD - 







CFR 


DCLMD»64 




RCE 


E'* 




RFA 


J+f 11»0 




BFA 


K-i-^lltO 


-I 


5TP 


FRMEX 



IF IN PROCEDURE MODE* CHECK 
SEMICOLON COUNT 

THE PRESENT SYMBOL IS A PARAMETRIC ARRAY 
ccwj> ITS iNiAMP AND A^^ ARRAY—PARAMFT^R 
OPERATOR TO THE EXECUTOR ' 



THE PRESENT SYMBOL IS THE NA^E 0?^ THE 
PROCEDURE BEING DECLARED 



If IT OCCURRED BEFORE* 
DUPLICATE PROCEDURE NAME 

SET SEMICOLON COUNT TO 1 

SEND NA^'JE JO EXECUTOR 



The PRESENT SYMBOL IS THE NAME OF 
A PARAMETRIC FUNCTION OR PROCEDURE 

PASS CHARACTERS IJ.NTIL MATCHING RIGHT 
PARENTHESIS IS FOUND AND GO TO SCN7 



!F CALLING A FUNCTION ♦CHECK S COUNT 
IF THIS COUNT IS 1»WE OONT KNOW YET 
WHETHER OR NOT THE PRESENT SYMBOL IS 
A PARAMETRIC ARRAY? BUT IF THE COUNT 
IS 2 OR 3 WE KNOW IT IS A 
PARAMETRIC ARRAY OR PROCEDURE 



IF IT ISNT* 



IM^^ROPFR FUNCTION ARGUMENT 



IF IN TYPE DECLARATION* 
SKTP TO NEXT MATCHING RIGHT PARENTHESIS 



IF SYMBOL WAS CLASSIFIED BEFORE AND 



OlO 07 


a 


0936 


BUN 


FRVIE 


010 08 





0987 


DIB 


Lf64,00 


OlO 09 





0988 


LDR - 





QIC 10 


Q 


0989 


RFR 


R19Ptll»l 


20 11 





0990 


8fR 


M+,11,4 


OIC 12 


A 


0991 


SFR 


H-f til #5 


010 13 





0992 


BFR 


SCN1»11»9 




ri 




[■FR 


-:'^!^ i. » i i T ( 


OlO 15 





C094 


RFR 


M+*12»98 


^le 16 


1^. 

■J- 


' e--95 :--*"P e-F-R 


L-FVFL »-0-2 


DlO 17 





0?96 ■ 


BCE 


'F- "■; 


O'O 18 


V." 


09 97 -w CAD 


CWCLN 


OlO 19 




C99e 


RUN 


SCN5 


OlO 20 


r-. 


O999 *H LDP - 





010 21 


Q 


1000 


SLT 





OlO 22 


Q 


: 1001 


ADD 


XZFRO-fl 


"'lO 2? 





1002 


nsA 


*-f2»l 


OlO 24 





1003 


LD8 - 





CIO 25 





1004 


IB8 


0+»9^99 


OlO 26 





1005 -R CAD - 


1 


010 21 





1006 


STA 


TTMp 


010 2a 





1007 


STP 


INSX#DlNi$ 


010. 2P. 


Q 


1006 


PUN 


ms 


OlO 30 





1009 


LDB 


TEMP 


010 31 


^■"'1 


1 niO 


DB6 


R-il 


010 3? 





1011 ^Q CAD 


CWNDX 


010 33 





1012 


RUN 


SCN5 


010 34 





1013 *J CFR 


ARAMDf64 


10 3 5 




1014 


DLB 


L • 64 » 00 


010 36 





1015 


RCF 


S + 


OlO 37 





1016 


IFL - 


0»11»1 


OlO 38 





1017 


RUN 


I- 


010 39 





1016 *' 


S IFL - 


0»11»5 


010 40 





1019 


STP 


FR>^EX 


OlO 41 





1020 


BUN 


FRMF 


OlO 4? 


!-> 


1021 


CAD 


CWARD 


0]0 4? 





10?2 


PUN 


SCN5 


OlO 44 





1023 ^J-K SLT 





010 45 


c 


1024 


BSA 


N-l-»o 


ClO 46 




10?5 


STP 


WFMX 


OlO 47 





1026 


BU^! 


W^M» I- 


010 48 





1027 


CNST 


31517000000 


CIO 4Q 




10 28 ^N ST A - 





010 5"' 





1029 


CFR 


FRMMDt64 


010 51 





1030 


BCU 


*+2 


010 52 





1C31 


DFL 


M4-,6?»29 


010 53 





10 32 


DLB 


L0CN»64»00 


'MO 5^ 





1033 


STB 


IOPUS»04 


OiO 5S 


G 


10 34 


STP 


TRTGX 


010 56 





1035 


RUN 


TRTG2 


010 57 





1036 


TFL 


ALEPH»629 6 


010 58 




1037 


CAD 


CWLAB 


CIO 59 





1038 »H RUN 


SCN5 


CiO 60 





1039 


TFL 


M-f62»29 


OlO 61 


.'-I 


1040 


STP 


FR^^FX 


010 62 





1041 


PUN 


FRME 



IS NOT A LA9FL» SEND IT TO THE EXECUTOR, 

THEN LOOK SEE WHAT KIN'D IT jS 

IF VARIABLE INSERT DOT 

IF LIBRARY ROUTINE* INSERT FUNC CALL OP 

IF ARRAY* SEE BELOW 

IF LABEL » EXIT 

IF EXT PROCEDURE* INSERT pUNC CALL OP 

15 l-T- THE NAME OF THE PRESENT 

P R OC E D U R E g E I m' DECLARE D 



IP A^ ARRAY* MOVE ThE MULTIPLIERS TO 
THE DIMENSION STACK 



(IF NOT PARANtETRlCfSKIP OVER THE 

TOTAL-LENGTH ENTRY) 
(IF ITS ONLY l-DIMENSiaNAL» WE 

LEAVE THE DIMENSION STACK AL0NE5 



SE^^D INDEX OP TO EXECUTOR . 
IF WE HAVE A NEW SYMBOL ♦ AND. WE ARENT 
ITS A VARIABLE 



IN ARRAY DECLARATION, MARK THE PRESENT 
SYMBOL AS AN ARRAY AND SEND IT AND AN 
ARRAY-^DECLARATJON OPERATOR TO EXECUTOR 



IP IT IS A LABFLf THE MODE MUST 
RE A DECLARATION OF SOME KIND 

ELSEf MISPLACED LABEL 



I-O DECLARATION 

STORE 1ST LOCATION IN lOPUS 

SEND A LABEL OPERATOR TO THE EXECUTOR 



IN FORMAT DECLARATION SEND THE 
LABEL ITSELF TO EXECUTOR INSTEAD 



OlO 63 



1042 :,C7 



BUM 



SCN7 



OlO 66 
OlO 67 G 
vOlO 68 



n ^ 1^ .» /v 



OlO 

Oi,e- 

010 

■OIC 

eic 

010 
010 

010 
010 
010 
010 
010 
OlO 
OlO 
010 
OlO 
010 
ClO 
OlO 
OlO 
OlO 
010 
010 

■oic 

OlO 

010 
ClO 
010 
010 

oil 
on 

Cll 

on 

Oil 

On 

Oil 

on 

CT1 



' \J • V 



71 

73 
74 
75 
76 
77 
78 
79 
80 
tl 
S2 
«3 
84 
83 
86 

a? 

36 

90 

91 

93 
9^ 
95 
96 
97 
98 
99 
0'^' 
01 
0? 

03: 

04 
05 
06 

07 
08 



A 






r 

c 




^:- 
A 






















f) 















1043 
1044 
1045 
1046 
1047 
1048 
-1049 

10 50 
1052 

JL v/ -^ _r 

1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
106B 
1 06O 
1070 

ion 

1072 

1073 
1074 
1075 
1076 
1077 
107B 
107-9 
108 
1081 
1 82 
1083 
1084 
1085 



R3K 



m- 



«r 



*B 



-0 



«-A 



SW5 



LOR 
CPR 
BCE. 
BUN 
IFL 
CAD 
StS 
ST A 
CAD 
SLA 
STA 
SLA 
STA 
DFL 
CAD 
SLA 
STA 
LDB 
CAD 
STA 

rFL 

LDR 

LDB 
STR 

STR 
IBB 

LPR 
STR 

DLB 
CFA 
BCH 
LDP 
CAD 
5TP 
BUN 
BUN 
LDR 
LDB 
RUN 



SYMBL 

STOGN+lfOO 

SCNll 

A+ 

*~1 f 62*29 
RR2 

2 

TPMP3fl2 

K 

8 

TFHP3 921 
1 

TFWP3*11 

TEMP3»?2«22 

SSC 

4 

TEMP3>64 

SYMBL 

•• ,. 

SSC ♦ 00 > I 

*+l 

PR 3 

TEMP? 

TTMPl 

&+»9999 

1 

TEMP 

TEMP ♦ 64 ♦O 



D + 

TEMP 2 

T€MP? 

insx 

IMS! 
SCNl 

TEMPI 
TpMP 

c- 



AP 

IN 



The STATEMENT STOP ^-Pt + I S RFDUNDANT 



A) AS A> A* 

IF WE ARE WORKING ON A PREFIX* 

CALCULATE SL-FIELD FOR COMPARISON 



PUT PREFIX CODE INTO PR3-STACK 
IN ALPHABETICAL ORDERING 



STP CLASX 

BUM CLASS 

BUN SCNl 

r>FFN R3 



NUMERIC LABEL 



OU 11 

Oil 12 
- ] 1 13 
Oil 14 



on 17 



1085 
1086 

1C87 
1088 



1089 



R4 



R5 



STP 


\'iimx 


BUN 


WINDl ♦SCN8 


IFL 


SW6 9 00f 1 


BUN 


R13 


DFL 


Dt22»l 



NA 

FINISH UP CONSTANT 

c,rT UP iMPLIFt) MULTIPLICATION 



m 



oil 


18 


1090 




CAD 


SYM3L 


oil 


19 


1C91 




SLS 


1 


cii 


20 ■ 


^ 10P2 




STA 


SYMRL 


on 


?1 


1093 




LDR 


S2 


on 


r2 


109^ 




STR 


SVMBLiOl 


on 


?3 


1095 




BUM 


SCNl 


on 


26 


1096 


R6 


STP 


WL^'.OX 


-0 li- 


f? e 


I_0.a7- 




J^UM - 


-Wl H:D-.1-»R.3 


on 


28 


ia9B 




B^H 


SCNl 


>^ — « 


JK» ^^ f\ 


1099 


^i-^AG 


CHSl 


->nrinA'^f>nn i A 


^'ii 


4.^ '^ 


^ v vy - ■ 1L- - v >. - >» * v 


on 


32 


noo 


R7P 


IFL 


5W6»0D#1 


on 


33 


noi 


R7 


STP 


0PRTX»R13 


on 


34 


1102 




nvfi 


OPRT 


on 


37 


1103 


H8 


STP ■ 


OPRTX»SCN.l 


on 


38 


1104 




BUN 


OPRT 


on 


ifl b 


1105 


R9 


LDR 


""S2 


on 


4? 


1106 




BFR 


SCN2#02#10 


on 


43 


1107 




CLL 


SW2 


on 


44 


noB 




STP 


WEf^X 


on 


45 


no9 




BUN 


WEWfSCN? 


on 


46 


1110 




CN5T 


315182000C0 


on 


4^5! 


nil 


RIO 


CAD 


RPAR 


on 


50 


1112 




STP 


SCAN 


on 


51 C 


1113 




BUN 


EXCTP 


on 


52 


1114 




BUN 


R19P 


on 


«75 


1115 


Rl i 


STP 


ALPLX 


On 


56 


1116 




BUN 


ALPLU 


on 


57 


1117 




BFA 


D+»1U0 


on 


?>6 


1? 1 B 




HFA 


c+m*i 


on 


59 


-ni9 




BFA 


R?P»11»7 


on 


60 


1120 




CLL 


TAG 


on 


61 


n 21 




STP 


WFMX 


on 


67 


1122 




r5UN 


weM»c+ 


en 


6"? 


1123 




CNST 


30122240000 


oil 


64 


11?^ 


-n 


TfL * D#ll f 1 


on 


65 n 


112? 


*c 


ST!=* 


FRMFX 


on 


^=^6 


n?6 




RUN 


FRMF 


on 


67 


11 ?7 


RllP 


CAD 


PLUS 


on 


6B 


1128 




RUN 


SCN5 






N) MS N* HP 
Fl N tSH WORK I HG ON CON STANT 



)A IMPLIED MULTIPLICATION 

(A tA SA *A -A -J^-A PA 

SFNp OPERATOR TO EXECUTOR»GO TO R13 



MANY E»G« ) ) {- 

SEND LEFTHAND OP TO EXECUTOR 



(P jp sp ,p ♦p pp 

THE RIGHTHAND SYMBOL MUST BE A 
REDUNDANT PLUS SIGN 

i'l 1 »j r* Ui. r*. V- i_ t/ ^-T \ i i ~ ■ . >_ 1 i >- ^' 1 ._ < . ^ ' J. — . - ' 



) { 



) TO EXECUTOR 

IMPLIED I^ULTIPLICATION 



LEFTHAND SYMBOL MUST BF A SIMPLE VARIABLE 



OR A RESERVFD WORD 



IMPROPER VARIABLE SYViBOL 



I\!SFRT PLUS SIGN SO EXECUTOR 

ALWAYS THINKS MINUS IS UMARY OPERATOR 



on 72 

on 7? 



1129 

1130 



R12 STP OPRTXfRllP 
RUN OPRT 



)- 

J TQ EXECUTOR* INSERT + SIGN 



Oil 


77 




I 


1131 


on 


7B 


' 


1132 


on 


79 





1133 


Gn 


8^'> 





1134 


fv 1 1 


A 1 


A 


1 • -^ e 


'^' i i 


Ol 


"' 


i i ^ ^ 


on 


82 





1136 


on 


83 





1137 


Oil 


06 





1138 


on 


87 





1139 


Oil 


88 





1140 


on 


91 





1141 


on 


92 





1142 


on 


.9-3 





n43 


on 


9A 





1 144 


on 


96 





1145 


.on 


96 





1146 


on 


97 





1147 


on 


98 





1148 


on 


99 





1149 


012 


00 





11*^0 


012 


01 





1151 


^-12 


02 





1152 


012 


03 





1133 


012 


04 





1154 


012 


05 





1155 


oia 


06 





1156 


012 


07 





1157 


012 


08 





1156 


012 


09 





!159 


012 


10 





1160 


012 


11 





1161 


012 


12 





1162 


012 


13 





1163 


012 


14 





1164 


012 


xs 





1165 


012 


16 





1166 


012 


17 





1167 


012 


16 





1168 


017, 


21 





1169 


012 


22 





n7o 


012 


23 





1171 


C12 


26 





1172 


012 


27 


0. 


1173 


012 


28 





1174 



R13 



R15 



R17 



R17! 



R17R 



R170 



*C 



Ria 



19 



R19P 



CtL 


K 


STB ■ 


SW1»62 


IFL 


5Wl»62t01 


Loe 


SBL 




C Mi'M O I 


RTF 


SYM,8L»9 


BUN 


Rl 


STP 


PASSX 


RUM 


PASS 


BUN 


SCN3 


5TP 


PASSK 


BUN 


PASS 


BFA 


R170#02»03 


STP 


CLASX 


BUM 


CLASS 


LDR 


52 


3TR 


SI 


LDR 


K? 


STR 


Kl 


RUN 


SCN3 


LDR 


NTAG 


SIR 


K 


STP 


PASSX 


RUN 


PASS 


BFA 


C+»02»03 


IFL 


tag»oo*i 


STP 


ALPIX 


BUf4 


ALPLU 


STP 


TRTGX V 


BUN 


TRTG 


BUN 


5CN6 


LDB 


K 


Dee 


R170»12 


CLL 


S2 


!FL 


S2 •00*90 


CLL 


K2 


DfL 


R3»62f29 


BUN 


Rl 


STP 


WINDX 


BUN 


Wlf^DU 


BUN 


PUP 


STP 


WINDX 


BUN 


WIND1#R2 


CAD 


DOT 



8LANK A 

PRcp^Rr TO BUILD AM IDENTIFIER 



SKIP OVER PLANKS 



A # 

GET NEXT NONBLANK CHARACTER 

IF NOT A COLON CLASSIFY 
^ LEFT IDENTIFIER 
S^OVt WINDOW TO THE R IGHT 
"and CONTINUE SCANNING 



MAR^ NUMBER AS LABEL 

GET NEXT NONBLAWK CHARACTER 



C©LON IS DETECTED 
LOOK UP IDENTIFIER 

PUOceSS LABEL 

RETURN 

THREE DOTS DETECTED 

TREAT AS COLON IF IDENTIFIER IS 

OVER FIVE CHARACTFRSi SET RIGHT 

CHARACTER AS SPECIAL CODE 90 FOR PREFIXES 

SET PREFIX SWITCH 

PROCESS AS IDENTIFIER 



N- 

PROCESS CONSTANT 

AND INSERT -f SIGN 



N{ 

PROCFSS CONSTANT 

IF NOT A LABEL f INSERT IMPLIED MULT 



012 29 



1175 



BUN 



SCN5 



012 


32 





1174 


012 


33 





1177 


012 


3«^ 





1178 


012 


35 




1179 


012 


36 





1180 


012 


37 





1281 


012 


38 





1182 


012 


3*9 


r-. 


MB? 


012 


40 





1184 


012 


41 





118 5 


Q12 


^2 





iim 


012 


43 





1187 


012 


44 





1188 


012 


45 





1189 


012 


46 





1190 


012 


47 





1191 


012 


48 





1192 


012 


49 





1193 


012 


50 


c 


11<^4 


012 


51 





1196 


012 


52 





1196 


012 


55 





1197 


012 


56 





1198 


012 


37 





1199 


012 


58 





1200 


012 


59 





1201 


012 


60 


n 


1202 


012 


61 


V.,.- 


1203 



R20 



*A 



*C 



-D 



R21 



5TP 


INPTX 


BUN 


INPT 


LDR 


CHAR 


BFR 


R17R»03»03 


BFR 


C+»91»08 


ST'^ 


WINOX 


RUN 


WINDU 


BUN 


Rl?!^ 


CAA 


SW2 


ADA 


SW3 


RZA 


E4" 


5TP 


WEMX 


BUN 


WEMf A- 


C?^5T 


315262800 00 


CLL 


D 


IFL 


D»22#58 


IFL 


5W3»00»1 


STR 


S2 


LDR 


XONE-H 


STR 


K2 


BUN 


R5 


CAD 


RPAR 


STP 


SCAN 


BUN 


EXCTR 


CAD 


DOT 


STP 


SCAM 


BUN 


EXCTR 


BUN 


R24 



N, - 

IF THE NEXT CHARACTER IS A DOTtWE HAVE 

A STATEMENT LABEL. 
OTHER"*^!^^ iF ITS NOT NUf^^BERIC 

WE FINISH MAKING UP THE CONSTANT 

, AND-CDMTlNUE _ 

QTHERWISE WE HAVE A FLOATING CONSTANT 



ERROR CONDITIONS ARE N.H»N OR N**NiN 
MISPLACED DECIMAL POINT 

RFCORO DECIMAL POINT AND COf^TINUE 
SCA^INING AND BUILDING CONSTANT 



)N 

) TO EXECUTOR 

• TO EXECUTOR 



012 65 





12^4 


R22 


STP 


PASSX 


012 66 





1205 




BUN 


PASS 


012 67 





1206 




9FA 


B+»02»14 


012 66 





1207 




euN 


A~ 


012 69 





1208 


*B 


LDB 


SW3 


012 70 





1209 




DBB 


G+#l 


012 71 





1210 




CLL 


D 


012 72 





1211 




TFL 


D»22»5S 


012 73 





1212 




IFL 


SW3 ♦00*01 


012 74 





1213 


^G 


STP 


WNOSX 


012 75 





1214 




BUN 


WINDS 


012 76 





1215 


«-B 


LDR 


SYMBL 


012 77 





1216 




STR 


cp 


012 78 





1217 




IFL 


sw;>»oo«i 


012 79 





1218 




STP 


PASSX 


012 80 





1219 




BUM 


PASS 


012 ai 





1220 




BFA 


D+fO?»20 


012 82 





1221 




BFA 


D+»02»34 


012 S3 


n 

V.' 


1222 




BFA 


F+»n2»lo 


012 84 





1223 


^C 


BFA 


F+»91»08 



N* 



CHECK FOR SECOND ASTERISK 
IF NOT * MEANS EXPONENTIATE 
START SCALE FACTOR 

IF ?>^aHtissa had no decimal point 

^4AHUFACTURE ONE 
PROCESS MANTISSA 



EXAMINE NEXT NONBLANK CHARACTER 
WF MUST HAVE *^-N '^^-N ' OR *- + !> 



Cl2 

012 
012 
012 

012 
Q12 
Q12 
CI2 

■012 
012 



B5 

Q7 
88 

^0 Q 

Q 1 

92 
03 .0 

m 



12H 
1225 
1226 

1227 
122% 

1W29 
1730 

1231 
1232 
12^33 






*F 



STP WEMX 

BUN WEN»A» 

Cf4ST 30129300OO0 

IFL 5Wl^#61♦l 

STP PASSX 

BUN -PASS 

BUN G» 

:STA- $2 

DFL X2»02t6 



IMPROPER SCALE FACTCHR 
RECORD SIG^J 



PREPARE TO PROCESS SCALE FACTOR 



R23 IS LOCATED BY GPRT 



(^12 
012 
012 
013 

013 
013 
0X3 

on 



91 
98 

90 
OO 
01 
02 

03 
04 



1234 
1235 
1236 
1237 
l;238 
123^ 
1240 
1241 



R24 CtL 
ST8 

CAD 

t^24P CLL 

CLL 

CtL 

. ;. ■■ S^A 



SW2 , 
SW4*61 

SYMBL 

D 

SW3 

SYMBLiOl 

SCN'I 



BLANK N 



PI^EPARE TO BUILD A C0f4STANT 



013 0? 
013 0,8 







1242 R25 STP OPRTXtSCNlO 

1243 BUN 0P1?T 



INSERT THE EMPTY OPERATOR 



0X3 11 
Ql3 12 



013 
013 

013 

013 
013 
013 

■Q 13. 



13 

14 
15 

16 

ll' 

18 
1 o 



1244 
1245 
1246 
1247 

1248- 
124^ 
1250 
1251 
1.252 



«^^6 



STP 
BUN 
LDB 
!FL 
CAO 
IFL 

I^L 
BUhl 



0PRTX»*-f2 
OPPT 

Of 12*10 



C^€RN»fOOf 1 
SC.''41*2 
TAG»00»1 
SCNl 



{% $$ 



TNCRFASE THF SEMICOfLON COUNT 



013 22 



1253 R27 OEFH SCNl 



$) 



0T3 
013 
013 
013 
013 
013 
Ol3 
013 
013 
013 
013 
013 
013 
013 
013 



25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

;35 

36 

37 
38. 

39 C 



1253 
1254 
12 55 
1256 
1257 
1258 
12*^^ 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 



TRTg? 

TRT3 



*F 



DFL ALF:PH*62»6 

CLL TAG 

DLB L»64»0 

CAD - 

BFA TRTGl»64f0 

BFA COWNTfl2#67 

STP WEMX 

BUN WFM»WU 

CN5T 30617000000 

BPA T4> 

LDR OUMPR 

STR V3 

LDR MEM«Y+1 

STR FXPLN 

STP CONVX 



TRTG2 FNTRAHcF — SUPPRESS MONlTORr?MG 

DEFINE A LABEL 

IT KAD BETTftR BE UNDEFINFD 
OR THE WORD COMMENT 

DUPLICATE LAPEL 



PUT OUT CODE. FOR DUMP ROUTINE 

IF THIS LABEL WAS SPECIFIED OH TRACE CARD 



013 40 


1268 




QUH 


C0WV3 


013 ^1 


V269 




BUN 


TRTGl . 


013 ^2 


1270 


^T 


STP 


FXUPX 


013 43 


1271 




BUN 


fXUP 


0l3 44 


1272 


TRIGI 


!>LB 


L»64»0 


0.13 45 


1273 




STP 


R^MX 


bl3 46 


1274 




BU?4 


REMltE- 


n ■» "* /. -? r\ 


1 »^"7e 


#n 


riibi B 


t ^ r /. ^ r\f\ 


•»" i »y T / 


xr- ' ' 




.'.,yur5 


U 9 Ot 7 W 


'^013 48 


1276 




CAD 


LOCN 


013 4^ Q 


127-7 




STA - 


- 0»64-- 


013 50 


1278 


m 


BUN 


8"»- 


013 5tV0 


1279 




SIR 


ASMBX 


bl3 5? 


12S0 




BUN 


ASMBLfMOPZ 


013 53 


1281 




TFL ; 


NU*62»29 


01? §4 


1282 


-B 


LDR' 


LOCNP 


013 S5.0 


1283 


2UTA 


f^424 


0O0l>01fL0CN 


013 M 


1284 


^-B 


CAD 


CHI 


013 5? 


l?8% 


AtFPK 


BZA 


TRT6X 


0X3 5B 


1286 




DLB 


V^#64fO 


013. 5--^--.0 


1287 




STP 


LIBRX 


013 60 


i?88 




BUN 


LIBRF 


IS 61 


1289 




DLB 


Lf64*0 


013 62 


1290 " 




STB 


MNTRf04 


013 63 


1291 


. 


CAD 


L ,■■ ■, 


0|3 64 


129? 




BSA 


*+2#0 


0X3 65 C 


1293 




If L - 


1#12»10 


013 66 


1294 




STP 


COHVX 


CIS 67 


1295 




BUN 


COHV 


013 6<5 




HNTk 


CAA 


* 


013 69 


1297 


mi 


f^P 


TRTGX 


Qi3 yo 


1298 




BSA 


*-f3t2 


0l3 71 


1299 


' 


BSA 


*+2t6 


013 72 


13 00 


TRTgX 


BUN 


# 


013 T3 


1301 




STP 


CMPLX 


013 74 


1302 




BUn 


WMGfCRM ^ 


013 mo 


1-303 




IFL 


MUf62»?^ •*■ 


013 T6 


1304 




BUN 


TRTOX 


013 7^ 


1305 


PASS 


STP 


l^PtX 


013 60 


1306 




BUN 


INPT 


0.13 81 


13 07 




BZA 


IHPJ 


013 92 


i3oa ■ 


passx 


BUN 


* 


Ol3 85 


1309 


WINDI 


LD8 


TAG 


013- 86 


1310 




DB8 


F+tl 


013 87 


1311 


vfiNDU 


STP 


V/NDSX 


013 e« 


131? 




aON 


WINDS 


013 89 


1313 




STP 


MMBRX 


013 90 


1314 




BUf^ 


^WBR 


0l3 93 


1315 


crRH^ 


DLB 


L#64»00 


13 m.o 


1316 




CAO - 





or3 ^0 


1317 




BfA 


A+»ll»7 



r|X ALL FORWARD RE^-E^ffieESTO^ THfS LABEL 



THE NEW DEFINITION IS LOCN 



IMS^RT A NOP INSTRUCTION 

If THIS IS A SEGMENT NUWBERV /' 

RFSTORE LOCN . 
IF MO?tI TOR STATEMENT HASNt APPEARED fEX I T 



BRt«G IN THE LABEL PRGCESSOI? ROUTINE 



ir THIS IS A NUMERIC LABEL 
ATTACH A MINUS SIGN TO IT 
AS A SIGNAL TO THE LABEL PROCESSOR 



IF LABEL IS REQUESTED FOR MONITORING* 



PREPARE TO MONITOR ALL ASSIGNMENT 
STATEMENTS IN IT$ SCOPE 

COMPILE CI^L-M (THIS WItL COME UP 
WHEN THE SCOPE OF THE LABEL IS ENDEDI 



GET NEXT NONBLANK CHARACTER FROM CARD 



FTNISH PROCESSING CONSTANT. 

If TAG IS ONf IT IS A NUMERIC LABEL 

OTHERWISE MAKE A CONSTANT OUT OF I T 



SEND CODED SYMBOL TO EXECUTOR 



On 

013 

013 

Ql4 

014 

014 

014 

D14 

Q14. 

Qi4: 

014 

014 

014 

014 

014 



96 

97 

9.6 
9^ O 

00 

01 

02 0' 

03 
0^ 

05 

06 
0? 
OB 

09 

10 0- 

11 



1318 
1319 
13?0 
1321 

13.€2: 

13^3 

1.122: 

13-28 
13?9 
1330 
1331 
1332 
1333 



*D 



*R 






5TA 
BFA 
CAD 
EXT 
STP 
BUM 
8UN 
SLA 
RUN 
IFL 
BUM 
LDR 
STR 
LDB 
DLB 
BU?1 



L»22 , 
C+»ll»6 
t 

B0F2 
5CAf4 
EXCTR 
^ * ' . 

4 

B-. . 

..L..*.lli2. 
E^-- 

WINDX 
9999 » 44*0 





IF IT ISiST A RtSERVtD WC>RO* 
M^HK. IT AS m OPtRPim 



RESERVED WORD *• SLA 4 . FOR PROPER CQDF 
EUNCT ION- CODE IS ^ IM SCA-f^N ER ♦ - 

a in EXEcmm 



014 

ou 

014 
014 

014 
014 
0l4 
01-4 
14 
014 
Ol4 
014 
014 
014 
014 
014 
014 
014 
014 
014 
014 
014 
014 

0T4 
014 
014 
014 

014 
014 
014 

ot^ 



r4 

15 

16 

17 

18 

19 Q 

20 6 

21 

22 

23 

24 

25 
2^ 

27 

28 

29 

30 

31 
t2 

33 

34 



35 
36 



37 
3« 

39 

40 
410 
4? 

43 

44 



4334 
1335 
1336 
1337 

133ft 

1339 

1340 

1341 

134:? 

1343 

1344 

1345 

1346 

1347 

134'?? 

1349 

1350 

1351 

1352 

1353 

13 54 

135^^. 

13*^6 

1357 

1358 

1359 

1359 

136 C 

1361 

136? 

1363 



WINDS 



*G 



*P 



WNOSX 

*E 

SW4 

*A 



*B 



SVAR 
*C 

WINOX 



CLL . RRO 

CAO SW3 

B2A E-f- 

CAO SYMBL 

PFA r+»23»0 

IFL Df22»01 

SRS 1 

BUN G** 

SRT 10 

CAO D 

STR D»08 

FAD D 

STA SYMBL 

BUN * 

CAD SW2 

BZA f>»' 

CAA SYMBL 

BFA B+ » 88 tO 

3TP WEMX 

BUm WFM»C+ 

CNST 33436373600 

SLA 8 

ADA fP 

80F A- 

BPA WNDSX-1 

DFFN ♦ 

CLA 

RUN WNDSX-1 

IFL RR0»22#1 

BUN Wf^DSX 

DEFN FRMEX 



PUT CONSTANT INTO FlHAL FORM 



IF DECIMAL POINT WAS SENSED t 
TRUNCATE CONSTANT To EIGHT SlGNmCAN 

DIGITS 



ATTACH EXPONENT 
^40RMALI2E 



IF SCALE FACTOR TO .BE ADDED» 

MAKE SURE IT IS IN THE PROPER RANGE 



COMSTAMT OUT OF RANGE 



tf UNDERFLOW Of? TOO BIG USF ZERO 
SET TYPP OF FIXED POINT CONSTANT 



014 47 

014 4?^ 

014 .49 

014 '50 



1363 

1364 
1365 
1366 



INSRT ADD 
FXT 
ADD 
STA 



LLO 

m 

SCT 
Lf04 



PUT A NEW SYMBOL INTO MEMORY 



-OlA 51 


1367 




LDR 


ssc 


014 52 


1368 




SLT 


4 


.014 5^ 


1369 




SIR 


L*64 


014 54 


1370 




CAD 


D2D3 


014 55 


1371 




STA 


L»2?. 


■•014 SS 


13T2 




5RA 




*- 


014 5T 


1:373 




STA 


B+t43 


014 58 


1374 




BFA 


D4-»42»00 


014 59 


1375 


*E 


LDB 


1 

u. 


0i4 60 


1376 




...LOR 


..*„0 


■ 014 61 -0 


■ 13-77 ■■ 




CAO 


L 


014 62 


1378 




BFR 


c+»oo*o 


014 63 


1379 




STP 


IHSX 


014 64 


1380 




RUN 


INSl 


014 65 


, 1381 


*c 


STA 


- 0#67 


014 66 C 


138? 


>^A 


LDB 


SSC 


014 67 


1383 




IFL 


*+l»43*19 


0X4 68 


13B4 


>-B 


RTF 


RRO*0 


Q14 69 


1385 




STB 


SSC 


014 70 


1386 




LDR 


SSC 


014 71 


1387 




CFR 


f^AMAX#C4 


014 72 0' 


1388 




BCM 


FULL 


014 T3 


13.89 




DLB 


L»64,0 


014 "74' "'^ 


' 1390 " 




CLL 


*• 


014 75, 


1391 


IMSRX, 


BUi^ 


# 


014 76 


1392 


*o 


TFL 


• S-t2I tl 


014 77 


139^ 




RU^s 


F- 


014 80 


1394 


ALPLU 


CAO 


K 


014 81 


1395 




SLA 


8 


014 82 


1396 




STA 


D2D3»23 


014 83 


1397 


02.03 


CAA 


SYMBL 


0i4 g4 


139^ 




SRT 


10 


014 85 


1399 




oiv 


HH 


014 86 


1400 




STR 


LLC 


014 87 a 


1401 




LDR 


PARSW 


014 88 


140? 




CAO 


FNSW 


Dl4 89 


1403 




BZR 


E + 


014 90 


1404 




LDR 


DICT+3 


0!4 91 


1403 




BIA 


B + 


014 9? 


14-06 




STP 


5RCHX 


014 93 


1407 




BUiN 


SRCHl 


014 94' 


1408 




BUN 


X-J. 


014 9$ 


1409 


*B 


STR 


R??2»21 


014 96 


1410 




CAD 


KC 


014 97 


1411 




STP 


INSRX 


024 93 


141? 




BUN 


INSRT 


014 99 


14-13 




LDR 


RR2 


015 00 


1414 




STR 


- 0»21 


015 01 


1415 




LDR 


TAG 


015 02 


1416 




BZP 


ALPXl 


015 03 


1417 




BUN 


Y4- 


015 04 


1418 


^F 


BZA 


D+ ' 


015 05 


1419 




CAD 


KC 


O15 06 


14.20 




STP 


SRCHX 



IF IT DOESNT FIT t^Tq THE SCRA^4PLE 
TABL£> put it l!:ilQ ASSOCI AT xVe MEMORY 



HOVE .NAME INTO SSC AREA 



CHECK IF MEMORY EXCEEDED 



50-CHARACTFn TDENTTFrER WORRIES 

LOOK.U?^ IDENTIFIER OR NUMERIC LABEL 

COfiTROL ROUTINE 

SCRAMBLE FIRST PART QF SYMBOL 
BY TAKING ITS RPMAIMDER ^^OD 99 



COLLECTING FUNCTION PARAMETERS 

USE TYPE AS SPECIFIED IN TYPE DECLRAT.MS 

COLLECTING PROCEDURE PaRAWFTERS 
MARK TYPE AS UhiS^ECIFIED 

PUT PARAMETER INTO TABLE AT KC LEVEL 



PROCESSING A FUNCTION DECLARATION 
IS THE IDENTIPIFR A PARAMETER 



':^r5 07 


1421 




BU^i 


SRCH 


015 as 


1422 




BUN 


0+ 


015 09 


1423 


*J 


LDR 


5W6 


015 10 


1424 




BZR 


ALPXl 


015 11 Q 


1425 




LDR 


L 


015 12 


1426 




STR 


LP 


0:,1S 13 0- 


1427 




CAD 


DOT 


015 14 


1428 




STP 


SCAN 


015 15 


1429 




BUN 


eXCTR 


.015 16 


■1430 ■■ 




LDR 


L"P 


015 17 


1431 




STR 


L 


015 18 


1432 




CLL 


SW6 


015 I^ 


1433 


At "XI 


LDB 


MODF 


<J15 ?0 


. 1434 




LOR • 


- 


015 21 


1435" 




DUB 


' Lt64»0 


015 22 ; 


1436'. 




BFR 


W-l-»I?»70 


015 Z3 


1437 




CAO ' 


- u 


015 24 C 


1438 


ALPLX 


BUN 


» 


015 n 


1439 


*D 


STP 


SRCHX 


015 U 


1440 




BUN 


^SPCHl 


015 27 


1441 




BUN 


F-^ 


015 2S Q 


1442 


TKI 


MOP 


FRME 


Qt5 29 


1443 




??FR 


■ ■ J-*t22 ♦7^^ 


015 30 


1444 




BfR 


ALPX1.-1»11»7 


0X5 31 0. 


1445 




BFR 


G4-*ll»9 


015 3? 


1446 


•^L. 


BFR 


H-»-*2?*83 


015 33 


1447 




mR 


Z+f21»3 


015 34 Q 


14 4-6 




STP 


LIBRX 


015 35 e 


. 14'49- 




SFR 


LieiRF*n.*3 


015 36 


1450 




BUN 


J* 


0X5 37 


1451 


-;cF ■ 


CAD 


LFVEL 


015 38 


14 52 


Pen 


BZA 


M + 


01-5 39 


14 53 


L9 


CLA 


9 


015 -40 


1454 




STP 


SRCHX 


015 4^i:.'0 ■ 


1455 




BUN 


SRCH 


015 4^0 


1456 




'BUN 


■ ■ f^f ■ 


015 43, 


1457 




BfR 


J-#2?»74 


015 44 


145ft 




BFR 


ALPXl-lfll»7 


Cl5 45 


1459 




BFR 


j-,11,^. 


015 46 


1460 




BFR 


L-#ll»3 


015 47 


1461 




. BFf? 


L-fll»8-' 


015 ^ 


1462 


«K 


CAD 


LFVEL 


,0^5 49 


1463 


^M 


5TD 


INSRX 


015 50 


14'64 




PUN 


'JNSRT 


015 "51 


1465 


*Z 


LDR 


TAG 


015 52 


1466 




52R 


H+ 


015 53 


1467 


*Y 


DFL 


- 0»11»1 


015 54 


. 1468 




BUN 


ALPXl-1 


015 55 


1469 


*X 


CAO 


KC 


om"U 


1470 




BUN 


M- 


015 57 


1471 


*G 


CLL 


SW6 


015 58 


1472 


-H 


LDB 


MOOF 


015 59 


1473 




LDR 


- 


015 60 


1474 




CFR 


DCLHD»6^ 


.015 -Al 


1475 




8GU 


H + 



If NOT TREAT AS NORMAL 



INSERT IMPLIED MULTIPLICATION 
IF RfcQUtR.EO 



ON EXIT* PUT MODE IN R REGISTER 

SYMBL C130E IN A REGISTER 



NOR?^AL CASE 

SEARCH FOR THIS IDENTIFTER 

IF PROCESSINC MONITOR LI.STiEXiT TO FRf^iE 

Hr I TS AM TNT?? INSTC FUHCT T ON GO TO J- 

IF A.HCTf-fER RESERVED WOR0»EX|T 

IS IT A LABEL 

IS IT A PROCEDURE NAME 

IS ITS TYPE UNSPECIFIED 

IF IT IS A NEW LIBRARY PROCEDURE* 

ADD IT TO THE LIBRARY 

QTMpPWISE CHEK IMPLIED MULTIPLICATION 

SYMBOL r^OT FOUND 
IMSIOE PROCEDURE 



MAYSE ITS A RESERVFn wQPO 



OR A PROCEDURE, LIBRARY FU^^CTION HA^'c 



]f WF HAVE A BONA FIDE NEW SYMBOL* 
ADD IT TO THE TABLE 



MAKE IT A LABEL f IF IT APPEARS IN 
THAT CONTEXT 



OTHERWISE IF IN TYPE DECLARATION MODE 
SET ITS TYPE 



015 67 


1476 




CAD 


RR2 


015. A3 


1477 




D?-R 


L 1 64 1 


01^ 64 


147B 




sta 


"* Of 2"! 


is 65 


1479 




BUM 


ALPXl 


015 66 Q 


14B0 


5^N 


CAD 


SYM^.L 


015 §? 


1481 




IDB 


PR3 


015 68 


1482 


■ -^A? 


IBB 


f+,9909 


015 69 


1483 




LDR 


- 1 


015 TO: 


148^ 




SIR 


TE^^P 


C!5 71 


■1483... 




DLB 


T£MPf64»n 


a 15 72: 


1486 




STi^ 


«+lf22 


015 73 


lAjS 7 




CPA 


- Ot2? 


OtS 7A 


1488 




LDB 


TE.^P 


015 75 


■■: 1489 




BCU 


A?- 


015 76 


1490 




CAD 


TEMP 


015 77 


1491 




SRS 


2 


015 78 


1492 


^P 


DtB 


L»64*0 


(^ns 79 


■ 1493 




STA 


- 0.21 


015 80 


149''^ 




3 UN 


J- 


015 m 


1495 


*F 


CAD 


RR3 


.015 S2 


1496 




RUN 


■ p- 


015 83 


1497 


*W 


CAD 


8 * 


. 0T5 84 


1496 




STB 


JCROY*04 


oW'i^- 


1499 




CLL 


TAG 


015 86 


1500 




STP 


INS.X 


015 87 


1501 




BUN 


INSl 


015 m 


150? 




STP 


CMPLX 


01,5 89-0 


■ 1503. 




BUM 


WMGsCROY 


015 00 


1504 




TfL 


CH!*00ii 1 


015 91 


■■1505 ■ 




BUN 


•SCNl 


015 9^ 


■ l!^06 


NMBR 


CAD 


SYMBL 


Ot# f5'0 


1507 




LDK 


Rf?0 


015 96 


1508 


RHO , 


MOP 


c+ 


15 . 9.T Q- 


■■1509 ■ 




DLB 


V6.f64»00 


OtS' 9« 


1510 




BFR' 


*+2»21fl 


015 99 


1511 




DIB 


' V7»64»00 


016 00 


1512 


*A 


CFA 


- I 


016 01 


1613 




BCE 


B-l- 


016 02 


1514 




STB 


.E+»04 


016 03 


1515 




toe 


- 


016 04 


■15 16 




I8B 


D+f9999 


Ol6 05 


1517 




TBB 


A-f 1 


016 06 


1518 


*D 


LDP. 


SSC 


016 07 


1519 


*E 


STn 


*»04 


016 08 


1520 




RTF 


RR0#2 


life"' 0:9 


1521 




SIR 


SSC 


016 10 


1522 




IFL 


- 99^8* 11 »2 


016 11 


1523 




IBB 


*+l §9998 


016 12 


1524 


*B 


ST8 


L 


016 13 


1525 




CAD 


L 


016 i4 


15?6 




SLA 


4 


016 15 


1527 




STA 


Lt64 


016 16 


1528 




DLB 


Lt64»0 


016 1? 


1529 


ItMBR.X 


BUN 


ij. 



GTV£-:\« A NEW SYMBOL • LFTS ASSlGK 

A TYPF FOR IT 
LOOK IN PREFIX STACK FOR 
FIRST PREFIX WHICH APPLIFS 



IF -MONE FITS, SET OTHERWISE TYPE 



LABEL OH A TRACE CARD SJiNSED 

PUT CODF RFFFRFNCF QN ITS FIXU^ STACK 



SEE IF CONSTANT HAS APPEARED BEFORE • 
EITHER SEARCH FLOATING POI.MT ON'^S 
OR INTEGER ONES 



:NTER mew CONSTANT IN TABLE 



CONSTANT IN TABLE 



016 18 





1530 *C CFR 


V2»21 


016 19 





1531 


BCH 


FLTcr^ 


rs n £ "^ A 


n 


1 C O 'I 


ni#"l 


C T Y '- *•/, 


^xo e.^> 


V 


JL -J .-5 .C 


•">vu 


r i AV..-' 


016 21 





1533 


DFL 


RHO»62»29 


I 3 23 





153^ 


STA 


VI 





1535 


STP 


T5T0X 


016 7A 





1536 


pUN 


TSTOP 


016 25 





1537 


LOR 


VI 


016 26 





1538 


CAD 


ABASF 


016 27 


rs 


1539 


IFL 


abash:* 04 tl 


^16 28 





1540 


STP 


WlxlTX 


016 29 





15A1 


BUN 


WR.TT3 


016 30 





154? 


BUN 


WINDX 



IN ARRAY FILL 

CHANGH TO PROPER TYPcr, jp NECESSARY 



RfrVpRSp ITS SIGN \^ MECriSSARY 



COMPILE IT 



016 35 





1543 


CLASS 


STP 


ALPLX 


016 36 





1544 




BUN 


ALPLU 


016 37 





15-^5 




BFA 


FRME>11»7 


016 38 





1546 




CFR 


DCLMDf64 


016 39 





1547 




BCE 


SCMl 


016 40 





154B 




LDB 


■^AG 


016 41 





1549 




BFA 


B+»il»0 


016 42 





1550 




BFA 


CH-tlltl 


016 43 





155] 




BFA 


D«t-»llf9 


016 44 





1552 




DBB 


P + »l 


016 45 





1553 


^0 


STP 


WFMX. 


016 46 





15 54 




BUN 


r'fMsFR^E 


y^ 47 

'\ . 48 




1555 




CNST 


30122240000 





1556 


*c 


IBB 


FRt'1E»9999 


016 49 





1557 


*p 


STP 


W,E?^X 


016 S'^ 





I'yW 




BUN 


WEM» A+ 


Ol« 51 





1559 




CNST 


30117240000 


016 52 





15 60 


*D 


DBB 


A + #l 


016 53 


c 


1561 




BUN 


Q- 


016 54 





1562 


^r-ct 


CFR 


FUNWD»64 


016 55 





1563 




BCU 


X + 


016 56 





1564 




LDB 


FUNS 


016 57 





1565 




CAD - 





016 58 





1566 




3SA 


Y + »3 


016 59 





1567 


«X 


DLB 


Li64»0 


016 60 


r, 


1568 




IFL - 


o»n»i 


016 61 





1569 


*A 


CLL 


TAG 


016 52 





1570 




BUN 


FRME 


Ol6 '63 





1571 


*Y 


DLR 


L*64»0 


016 64 




1572 




IFL * 


# 1 1 • 9 


016 65 





IbTb 




BUN 


¥P.^.^ 


016 66 





1574 


CLASX 


DFFN • 


FRMEX 


016 69 





1574 


THETA 


DEFN 


* 


016 70 





157A 


IS'PT 


NOP 


IMPS 


016 71 





15 75 


IMPl 


DLR 


SCNCT»94*00 


016 72 


c 


1576 




CAD - 


IMAGE 



PROCESS AND CLASSIFY SY?^80L 



EXIT IF IM A TYPE DECLARATION 

OTHER WISE IT MUST BE A 

LABEL OR SIMPLE VARIABLE 



IMPROPER VARIABLE SYMBOL 



IMPROPER LABEL SYMROL 



MAKE UNASSI G.NED SYH30L 

INTO EITHER A SIMPLE VARIABLE 

0R> IF IN LABEL PART OF A PROCEDURE 
CALL* INTO A LABEL 



EXIT TC FRME ROUTINE IN ANY EVENT 



GET NEXT CHARACTER* FROM FV--STACK 

OR FROM CARD. i^ORKALLY FROM CARD 
BRING IN ALPHA WORD 



0l6 t3 1577 im SCNCT 

C16 74 1578 SU - ISOLATE NEXT DIGIT PAIR 

1580 ZeTa R^A E+tOO.OO 

1581 SRA 8 

1582 IFL SCNCT#O5f02 

1583 *f sta char ♦ 02 
1534 ?2fta run inptx 
1586 sla 4 if processing for statement 

IS%0 STP. INSX-tRV W-I PUT CHAKACTERS INIO R1:-STACK. 

I5S7 Btm INS 

15BS BFA *+3*62 933 

1589 CAO CMAR 

159c INPTX BUN * 

1591 *8 CAO FV IF BETA ON AND WE HAVE JUST PUT I."^ 

1592 LDB RV AN EQUAL SIGN* 

1593 STB FV»04 RV STACK HAS CHARACTERS IN BACKWARDSS 

1594 LDR ~ • TRAMSFER THEM TO fV-STACK IM RIGHT ORDER 

1595 STA - 0#0A. 

1596 5TR RV»04 UNTIL RV-STaCK IS EMPTY 
15^7 BFR *+2#04»00 
1598 BUN 8* 

1599. .. *.C IFL,,. ,,PETA»6::^„i29 

1600 CAD CHAR 

1601 BUN INPTX 

1602 *D CNC 4 !MAGE+15tl READ A NEW CARD 

1603 BCS *42f4 
1^04 RITE CWR 4 I MAGE*!- 15 » 22 9 4 PRINT TT UNLESS PcS(4) DOWN 

^ ■ 1605 " CLt SCMCT- 

1606 CCBEG IFL SC.^CT.0Ot02 START IN COLUMN 2 
i6C7 BUN inPl 

1608 ^E IFL SCNCTfOO^lO 

1609 5TA SCNCT»01 , HIGH SPEED IGNORING OE SUCCESSIVE 

1610 RUN F-* BLANK COLUMNS UNLESS ZgTA SWITCH IS CM 

1611 INP3 LDB STFOL 
1612 CAD- PULL CHARACTERS OUT CF ^v ( FOR-'VAR lABLET 

1613 SRA 4 STACK 

1614 STA CHAR » 02 

1615 -IBB RUNXX»9999 

1616 Lf>R - i 

1617 STR STFOL #0A 

1618 BUN INPTX 

1619 TNAGF HLT 

1620 CNST SBURROUGHS ALGEBRAIC COMPILER * STANDARD VERSIONS 
1630 CNST 5 4/1/61$$ 
1632 CNST 0»0»0 
1635 LOCN INIAGE+16 

1635 SRCHl CAD LEVEL 

1636 SRCH ADD LLC 

1637 EXT NN LOOK FOR SYMBOL IN TABLE 

1638 ADD SCT 

1639 STA L 



016 


75 





016 


76 





rj 


77 





78 





016 


19 


c 


A 1-A 


SO 





016 


81 





016 


82 





tag" 


T3 





016 


g4 


Q 


016 


nb 





016 


86 





016 


87 





OI6 


88 





016 


89 





016 


90 





•" 16 


91 





016 


9? 





016 


93 





016 


94 





016 


95 


n 


016 


96 





016 


97 





016 


98 





016 


99 





017 


00 







01 





tJ 


02 





03 





0X7 


04 





017 


"•5" 





017 


06 





017 


07 





017 


08 





017 


09 


J 


017 


10 





017 


11 





017 


12 





017 


13 





017 


14 





017 


17 





017 


18 





017 


to 

4> / 





017 


20 





017 


21 





017 


24 





017 


25 





017 


th 





017 


tl 





i ' 


28 


(-1 



017 


?9 





017 


30 





017 


31 





r 


32 

33 







oil 


34 





017 


35 





017 


36 




017 


37 





oir 


S8 





017 


59 





017 


40 


r-. 


017 


41 





017 


42 





017 


43 





017 


44 


r, 


017 


45 


c 


017 


46 





017 


47 




01? 


48 





017 


■40 





017 


.50 





017 


53 





017 


56 





2^ "7 


57 





5l7 


58 





59 





017 


60 





niT 


£.1 





•>' X 1 


VI 




017 


62 






1640 
1641 
1642 
1643 
164^ 
1645 
1646 
i 64 (' 

164a 

1649 
1650 

1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 



1662 



1663 
1664 
1665 
1666 
1667 
1668 
1669 






*A 



SRCHX 



R23 



OPHT 



LDB 
IBB 
CAD 
STA 
CFA 

ecu 

SRA 

«- 1- « 

IFL 
STA 
IFL 

1^ » o 
Uk.Q 

BRP 
LDB 
CAP 
CFA 
3CU 
DBB 
IFL 
DLB 
LDR 
BUN 



SRCHX#9999 

1 

L 

D2D3»?3 

B- 

4 

tfmp 

TEHP»63*9 

A4-«04 

A4»04tl 
TFMP954$1 
A + 
L9 

SYHBLfOO 

A-»l 

SRCHXf04»l 
Lt6^»0 




STP 0PRTX»R24 



OPRTX 



LDB 

DLE^ ■ 

ST9 

LDB 

CAD ' 

BUN 

OEFH 



OPRTX 

9998 »44»'0 
SCANt04. 
SI 
OPTaf' 

fxcTr 

SCAN 



^If?ST compare: LENGTHS 

(AND WHETHER OR HOT A -MUr-iERIC LABEL) 



IF LE'^^GTHS AGREE* COMPARE THE REST 



EXIT TO ONE BIGGER tOCATIOM 
IF SYMBOL IS FOUND 



?N tN $N »N ^^*.N "H PN 



5E^iD SI OPERATOR TO EXECUTOR 



017 68 





1669 


VfEM 


CLL 


MSG 


017 69 





1670 




Lt>e 


C+ 


OlT 70 





1671 




RTF 


M56*6 


Cl7 71 





1672 




CLL 


TEMP 


017 72 





1673 


WEMX 


CAD 


-» 


017 73 





1674 


*F 


CLR 


0000 


017 74 


..'^ 

w 


1675 




SRT 


B 


017 75 





1676 




BFA 


F+»CO*0 


017 76 





1677 




STA 


E~#04 


017 77 





1678 




STR 


TFMP3 


017 78 





1679 


^H 


IFL 


E*»04f 1 


017 79 





1680 




LDB 


F- 


Cl7 80 





1681 




LDR 


- DICT-2 


017 81 





1682 


*C 


CLA 


MSG+1 


017 32 


c 


1683 




LBC 


TEMP 


"17 83 





16a4 




5LT 


2 



WRITE ERROK MESSAGE 
CLEAR MESSAGE BUFFER 



GET DICTIOMARY FMTRY 



TRANSFER CHARACTERS 



Cl7 84 





1685 


BFA 




B+fOOfOC 


017 85 





1686 


SLA 


- 


3 


017 86 





1687 


DLR 




TEMP»94«00 


cm 87 





1688 


LSA 






r 7 m 





1689 


ADL 


- 


MSG 


017 $9 





1690 


IFL 




TEHP^OSfOZ 


017 9^^ 





1691 


BUN 




c*- 


017 91 





-1692 ^t 


?j BSA 




H-^jS 


Cl7 9? 





1693 


IFL 




Temp ♦ 05*02 


OlT'^? 





1694 


CAD 




TEMP3 


017 94 





1695 


BUN 




C4* 


017 95 





1696 *F BCS 




^ + 2»4 


017 96 





1697 


BUN 




*+2 


017 97 




1698 


CWR 


4 


IMAGE't-15*22s4 


017 98 


Q 


1699 


CWR 


4 


MSG-f6»42 


017 99 





1700 


LD6 




WEMX 


oia 00 





1701 


DLB 


- 


9999»44»C 


018 01 





1702 


CAD 




V4 


018 0? 





1703 


fiUN 


- 






ONE AT A TIME INTO 
SUFFER AREA 



PUT SPACE OETWEE^' WCROS 



RETURN TO PROGRA^^» 
ATTEMPT TC CONTINUE ON 
PUT V4 (CODE FOR CONSTANT 
IN A REGISTER ON EXIT 



018 06 





1704 


NEWT 


CAD 


TEMPS 


018 07 





1705 




SLA 


4 


018 08 


t! 


1706 




CLL 


TEMPS 


018 09 





1707 




BUN 


INS 


Olfl 12 





1708 


INS2 


CAD 


LOCN 


' 8 13 





,1709 


INS 


L9B 


TNSX 


v^i8 14 





1710 




DLB - 


99^8 > 44*0 


018 15 





1711 • 


INSl 


STB 


A+»04 


018 16 





1712 




LDf? 


AVAIL 


018 17 





1713 




BFR 


B-»-»04*00 


018 18 





1714 


*C 


LOR * 





018 19 





1715 




LDB 


AVAIL 


01 a 70 





1716 




STA - 


0»67 


018 21 





1717 




CAO - 





018 22 





1718 




STR - 


0f04 


018 23 




1719 


*A 


STB 


-5t»04 


018 24 


'■J 


1720 




STA 


AVa!L»04 


oia ?5 





1721 


INSX 


BUN 


*• 


CIS ;?6 





1722 


NFWTX 


DFFN 


INSX 


OlB 27 





1722 


*S 


LDR 


mamax 


018 28 





1723 




CFR 


SSC»04 


018 29 





1724 




STR 


AVAILt04 


018 30 





1725 




STR 


D+#04 


018 31 





1726 




DFL 


M AM AX » 00*1 


018 52 


■ 


1727 


^D 


CLL 


* 


018 33 





T728 




BCH 


c- 


018 34 





1729 


FULL 


STP 


Wfmx 


018 35 





1730 




BUN 


WEMfEXd 


018 36 





1731 




CNST 


3394 1430000 



RECORD CURRENT SET OF Tr^4P0RARY 
STORAGE CELLS IN SAVET STACK 
AN(5 MARK THE TEMPS STACK E'^tPTY 



INSERT RA{67) INTO ASSOCIATIVE MEMORY 
LOCATION PRECEDING (RB) 

NORMALLY THIS MEA^i5 ON TOP OF THE 
STACK NAMED BY THE B REGISTER OR 
BY THE 4/4-FIELD OF THE STP 



IF AVAIL STACK IS EMPTY* TRY TO 
INCREASE THE SIZE OF 
ASSOCIATIVE MEMORY 



IF HO ROOM IS- LEFT » GIVE UP 
COMPILER CAPACITY EXCEEDED 



.8 39 



1732 



REM? 



SER 



018 40 





1733 


RtM 


LDB 


REMX 


018 41 





1734 




DLB 


- 9998»44»0 


018 42 





1733 


REMl 


STB 


A+#04 


OjB 43 





1736 




LOB 


- 


qj 4/4 

0|8 45 





1737 




CAD 


- 





1738 


REMX 


TBB 


* 9 0999 


OI8 46 





1739 




D8B 


*+lt9999 


oie 47 


r. 


1740 




LDR 


AVAIL 


018 46 


G 


1741 




STB 


AVAIL #04 


018 49 


Q ■ 


174? 




5TR 


- 0*04 


O18 50 





174-3 


«A 


5TA 


*»04^ 


oie 51 





174-4 




LDB 


REMX 


018 52 





1745 




DLR 


- 9999,44»0 


018 53 





1746 




RUN 


- 


018 55 





1747 


ASSNl 


CAD 


VARB 


018 56 





1748 




SLA 


4 


018 57 


c 


1749 




STA 


- 0f64 


018 58 





1750 




OFL 


VARB»04»1 


OlR 59 


D 


1751 


ASSN 


CAD 


- 


018 *0 





1752 




BFA 


ASSNl #6-^*0 


018 61 





1753 


A5SHX 


8UW 


* 


Olv^ 63 





1754 


CONV 


CAD 


-.0 


OlB 64 





1755 




LOR 


DICT4-16 


018 65 




1756 




SIR 


%X^LH 


018 66 





1757 




LDR 


V8 


018 67 





1758 




stb 


STPV3*44 


018 66 





1759 




BFA 


F+»ll»9 


f 8 69 

^18 70 





1760 




LDR 


NONGN+l 





1761 




STR 


FXPLN 


018 71 





1762 




LDR 


MNTRE 


O18 72 





1763 




STA 


STPV3>21 


018 73 





1764 




BFA 


F + ^lUl 


018 74- 





1765 




BFA 


F+»ll»3 


018 75 





1766 




LDB 


VIMAG 


018 76 





1767 


^■F 


STR 


V3 


oia 77 


f) 


1768 




CAD 


- 1 


018 78 





1769 




STA 


SYM3L 


018 79 





1770 




STB 


RR0»2j, 


018 80 





1771 




STP 


NMRRX 


018 81 





1772 




BUN 


HMBR 


018 B2 


r- 


1773 




STP 


ASSNX 


018 B3 





1774 




BUN 


ASSN 


018 84 





1775 




SLA 


7. 


018 85 





1776 


CONV 3 


STA 


3UN3V»44 


018 86 





1777 




CAD 


G2 , 


018 87 





1778 




BUN 


INTRP 



REMOVF INFORMATIO?nI FROM 
ASSOCtATlV'c" MEMORY LOCATION FOLLOWING 



(RB) 



f • « « 



NORf^ALLY THIS MEANS PULL OFF 



TOP OF STACK KAMED BY THE B REGISTER 
OR NA.MED IN 44-FIELD OF STP INSTRUCTION 

IF THE STACK IS EMPTY ^ EXIT 
OTHFRWrSF MARK LOCATION AVAILABLE 
FOR FUTURE USE 

EXIT W T-T« THE ^ R€MOV£D QU AN^T I T Y I H^ _ -.^ 

REGISTER A» TO THE LOCATION SPECIFIED 
1^J The 44-FlFLD OF THE BU^^ INSTRUCTION 



ASSIGN A PLACE FOR A VARIABLEt 
OR CONSTANT ♦ OR TEMP STORAGE 1 
IF ITS I^OT IN MEKORY ALREADY 



pX' T OUT >\QH I TOR CODING 



FDR A LABEL »T0 THE LABEL PROCESSOR 



OTHERVnSE TO THE MONITOR ROUTI'NE 
PUT TYPE IN THE STP INSTRUCTION 

MONITOR FUNCTION NAMES 

(ARRAY NAME IS IN VIMAG) 



MAKE UP A CONSTANT WITH THE 
LEADI^^G ALPHABETIC CHARACTERS 
(OR NUMERIC LAB-EL QUANTITY) 



PUT ADDRESS OF THIS CONSTANT 
IH SUf^i INSTRUCTION 



SECTION C» THE EXECUTOR CO-RDUTINE 



oia 


91 





1779 


MAXCM 


CAD 


OPHAX 


018 


9? 





1780 




WH 


EXIT 


018 


93 





178! 


MINCM 


CAD 


CPMIM 


'-^18 


<^ 





178? 


EXIT 


STP 


CMPLX 



oi« 


95 





1783 




BUN 


CMF>L 


018 


96 





1784 


HORM 


STP 


EXCTR 


n \ o 


97 


A 


1 vac. 




6UN 


SCAN 


V 1. o 


w 


J 1 u ^ 




018 


98 





I7S6 


analz 


sta 


TEMP* 64 


r-8 

I .9 


99 





1787 




DL6 


TEMP ♦64*0 


00 





1788 




^A 


A+f01»l 


019 


or 





1789 




BFA 


B+»01»4 


019 


02 





1790 




RFA 


C+«0lf5 


019 


03 





1791 




BUN 


EXIT 


019 


04 


Q 


1792 


•--A 


BSA 


- 0f6 


^l^ 


05 





1793 




BUN 


ex IT 


019 


06 





1794 


*B 


CAO 


- 


Oio 


07 





1795 


ANALY 


STA 


INSX»04 


019 


08 





1796 




DLB 


MODE»44»0 


019 


09 





1797 




BUN 


INSl 


0X9 


10 





179B 


^C " 


STB 


D+f04 


019 


u 





1799 




LDB 


MODE 


019 


12 





1800 




CAD 


- 


019 


13 





1801 


-D 


BUN 


•R- 


019 


lA 





1802 


EXCTR 


SUrvT 


ANAl-Z 



NORMAL EXIT TO THE 

crAWKiCD '-n-.Dni ;t- T MP 

AT THIS POINT /,*£ USUALLY GO TO 
COtMPLCTHE COMPILER) BUT SOME SPECIAL 
CASES OCCUR 



SPECIAL CO?^TROL OPERATOR* BRANCH 
DlRcCTLY TO l^ 

SET UP MODE FIRST* THEN CiQ DIRECTLY 



PICK UP NODE FIRST* THEN GO DIRECTLY 



EXIT-ENTRA^^CE LINE 



019 


18 





OIP 


19 





019 


20 





019 


21 





C19 


22 





019 


2^ 





{ 

019 


26 





019 


27 





019 


2B 





019 


29 





019 


30 





019 


31 





019 


34 


w 


019 


35 





019 


36 


Q 


019 


39 





019 


40 





01.9 


41 






1803 

1804 
18C5 
1806 
1807 
1808 



1809 
1810 
Iflll 
1812 
1813 
1814 



1815 
1816 
IS 17 



1818 

1819 
1820 



COMKA BSA A-»-il 

DLB - 0»64*0 
CbWX F4241 6273* 30 »0 

*A STP -WEMX 

SUN WEMiNLRB 



comma found. we cant be i;*^^ normal node 

Branch to the comma-generator 
specified by this mode* 



CNST 316145000000 WISPLACEO COMMA 



MODCM STP 
BUN 
STP 
BUM 
CAD 



OVRLY CAA 

STP 
BUN 



CMPLX 

RIGHT 
CMPLX 
WMGtCPO 
LPAR 

EXIT 



G12 

intrx 
tntrp 



GO TFL TAG»00*1 
CAD CRT 
BUN EXIT 



MOO COMMA IS THOUGHT OF AS )CRD( 



GENERATE ST°»BUN 



FOLLOWED BY H ( THF SEGMENT NUMBER) 



SET UP TO EXPECT A LABEL 

AND COMPILE A CIRCLE-T OPERATOR 



019 44 



1821 



TO 



DEFf^ NOf?M 



019 46 


1821 


SWTCH STP 


CMPLX 


019 47 


1822 


BUN 


LEFT 


019 48 


1823 


IFL 


DELTA»00*5 


019 49 


1824 


DFL 


SWCM*62»29 


1 9 50 


1825 


- CAD 


CRN 



IGNORE THE WORD TO 

SET UP TO PROCESS A SWITCH STATEMENT 
SWITCH E*CL#*«»fL) 



019 51 



1826 



BUN EXIT 



019 53 





1827 


.SWCM 


BU.N 


60 


0T9 54 





1828 




IFL 


SWCMf62*29 


019 95 





. 1S29 




StP . 


NULSX 


019 S6 





X8SC 




PUN 


NULSB- 


019 57 


a 


1831 




ST(> 


ASMBX 


019 58 





1832 




8UN 


ASMBL»BUNFB 


019 59 





1833 




CLL 


DEX 


019 60 





1834 




BUN 


GO 


oi9 m 





1835 


UNTIL 


IFL 


PSI»00»01 


019 64 





1836 




CAD 


LOCN 


019 65 





IS37 




STA 


3REFf64 


019 ^6 





1838 




STP 


CMPLX 


019 67 





1839 




3U!^ 


WMGfPREF 


019 m 





- 2840 




CAD 


CRU 


019 69' 





1841 


#A , 


IFL 


DELTA »22tl 


019 70 





1842 




BON 


EXIT 


019 73 





1843 


If 


CAD 


OPIF 


019 74 





1844 




S'JH 


A- 


019 77 





1845 


FTh^ 


STP 


CMPLX 


019 78 





184i 




BUN 


WMG»CRF 


019 79 





184^ 




STP 


CMPLX 


019 80 


(J 


1848 




BUN 


LEFT 


019 §1 





1849 


«>» 


IFL 


PSUOOtl 


019 82 





1850 


,4 


' BUN 


l««ORM 


019 S5 





1851 


on 


STP 


EXCTR 


01^ 86 





1852 




SUN 


SCAN 


019 87 





1853 




STA 


SM8L 


019 88 





1854 




3FA 


A-f ♦92*69 


019 89 





1855 




STP 


CMPLX 


019 90 





1856 




BUf^ 


WMGfBOR 


0|^ 91 





1857 


*8 


CAD 


SMBL 


0|9 92 





1858 




BUN 


FXIT 


019 93 





1859 


*A 


STP 


CMPLX 


0i9 94 





I860 




BUN 


RIGHT 


019 95 





1861 




STP 


ASM3X 


019 96 





186? 




BUN 


ASMRufBUNFR 


019 97 





1863 




STP 


CMPLX 


019 98 





1864 




BUN 


LEFT 


019 9<? 





1865 




IFL 


PSI»00»1 


020 00 





1866 




BUN 


IF 


020 03 





1867 


WISE 


CFA 


r>rLMD>64 


020 04 





1868 




PCE 


B + 


020 05 





1669 


*A 


STP 


CMPLX 



IF PROC* THE LABELS. ACT LIKE GO TO 



OTHFRWiSFjEVALUaTE E» AND LBC E 



THEN COMPILE -BUN FORWARD AND 
ACT LIKE GO TO 



PUT OUT A BACKWARD REFERENCE OPERATOR* 
TO THE PRESENT LOCATION 
COMPILE A CIRCLE-U OPERATION 



IF AND UNTIL TURN ON SWITCH 
WHICH CHANGES ~ SIGN INTO EQL 



EITKEf< IS JUST A CIRCLE E OPERATOR 
AND A LEFT PARENTHESIS 



OR I NOT OR IF* 
COMPILE A BOOLEAN OR 



OR IF* 

This ) matches the either 
put out, a bun forward 
and another either 
and then the if 

otherwise sensed* 

if in either if context. 



0?0 


06 





020 


07 





020 


08 





020 


09 





020 


10 





020 


It 





020 


12 





f]r>ri 


r* 





— «» •» 


J. -^ 




020 


14 





020 


m 





020 


u 





020 


1? 





020 


20 





020 


21 





020 


22 





020 


2^ 





020 


24 





020 


25 





020 


28 





C20 


29 





020 


30 





020 


31 





O20 


34 





020 


33 





020 


36 





020 


39 





020 


40 





020 


41 





020 


42 





20 


43 





020 


46 





020 


47 





020 


48 





020 


49 





020 


50 





020 


51 





020 


5? 


n 


020 


53 


c 


020 


54 




020 


55 





020 


56 





C20 


57 





020 


60 





024) 


61 






1B70 
1871 
1872 
1873 
18'?4 
1875 
1876 

1878 
1879 
1880 
1S81 



1882 
1883 
1884 
1885 
1886 
1887 



1889 

189a 

1891 



1893 
1894 



1895 
1896 
1897 
1898 
1899 



1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 



191:2 

1913 



^^B 



EMTER 



FOR 



BUN 
STP 
BUN 
IFL 

BUN 
LDR 
SIR 
LDB 
DBS 
5TR 

RUM 



IFL 

STP 
RUN 
STP 
BUN 
BUN 



STOP STP 
BUN 

SCT CLA 
BUN 



STP 
BUN 

BUN 



COMMT CLL 
STP 
CAD 

BfA 
PUN 



FORCN' 



STP 
BUN 
STP 
RUN 
DFL 
CAD 
SLA 
STP 
RUN 
CLL 
IFL 
BUN 



CLL 
LDR 



BiJNFK 
00 ♦ 4 ^' 



RIGHT 

ASMBX 

ASM8L» 

DELTA* 

CRW 

EXIT 

RR2 

LEVEL 
NORM*! 
RR 1 



TAGfOOtl 

EXCTR 

SCAN 

LINKX 

LINK2 

NORM 



CMPLX 
WMGfCRZ 
SCRTB 
EXIT 



t » I" I < *n v/ 

VSUB 



TAG 
INPTX 

CHAR 

SCN7»02»13 

INPT 



CMPLX 

WMGtCRX 
CMPLX 

LEFT 

BETA»62*29 

CHAR 

4 

INSX#RV 

INS 

ALPHA 

ALPHA»01»1 

C + 



P T 

ALPHA 




ACT LIKE OR IF 



Then put out circle^w operator. 



RR3 TO current TYPE 

AND IF OUTSIDE GF PROCEDURE DECLARATIONS • 

PUT IT INTO RR I ALSO* 



LINK TO SUBROUTINE 



COMPILE CIRCLE I 

AND AN ACCUMULATOR SY.MBOLi 



RETURN, 



SEE VSUB* 



COHMENTt 

BYPASS CHARACTERS 

UNTIL WE SEE A SEMICOLON 



CIRCLE X ~ WILL GENERATE THE FINAL BUN 



SET TO STORE NEXT CHARACTER. 
AWAY iVP UNTIL THE = SIGN) 



ALPHA TELLS WHAT KIND OF 
ITERATION LIST ELEMENT WE HAVE 



COMMA IN ITERATION LIST, 



020 


62 





020 


63 





020 


64 





020 


65 





020 


66 





020 


67 





70 


68 





020 


6<? 





020 


70 





30 


71 


0. 


020 


72 





Q20 


73 





020 


74 





020 


75 





20 


76 





20 


77 


n 


020 


78 





020 


7c 




C20 


80 


n. 


020 


81 





020 


82 





20 


63 




2 ^- 


64 


.."^ 


02Q- 


85 


ti 


20 


86 





020 


87 


'., ( 


020 


86 





20 


30 





020 





A 


020 


91 





020 


9-2 


u 


20 


93 





020 


94 





020 


95 





020 


96 





020 


97 





020 


9S 





2 


99 





021 


00 





021 


01 





021 


02 





021 


03 





21 




n 


21 


05 


■'^1 


071 


06 





021 


07 





021 


OB 





021 


09 




021 


10 





C21 


11 





021 


12 





21 


13 






1914 

1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 

1924 
1925 

1926 

1927 
1928 
1^29 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1946 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
19S3 
1954 
19 55 
1956 
1957 
1958 
1959 
196-^ 
1961 
1962 
1963 
1964 
1965 



■»;-p 



r. 1 



^A 



•^■B 



BFR 


A+«01»l 


BFR 


B+»01»2 


DFL 


ALPHA»01t2 


CLL 


PHI 


STP 


fsubx 


BUN 


FSUB2 


BUN 


c+ 


STP 


SEMTX 


BUM 


SFMIC 


.STi> 


RPMXrEXEC 


BUN 


RffMf * + 2 


F426. 


6141»0f* 


STP 


FXUPX 


BUN 


fXVP 


STP 


CMPLX 


BUN 


W.MGtCPU 


IFL 


Pl^OOtl 


OFl 


DELTA»01f2 


IfL 


ALPHA »Ol»l 


CAD 


TOP 


BUM 


FXIT 


LOB 


MODE 


LDR - 





BFR 


'r + »22»2 


IFL 


ALPHA »00#1 


STP 


C'-^PLX 


BUN 


RIGH"^ 


STP 


qsUbx 


buh 


::5syB 


STP 


FSUBX 


RUN 


FSUBl 


STP 


RUNX 


Burv 


RUN 


STP 


FXCTR 


BUN 


SCAN 


Cf A 


HYPM 


LDR 


RtEQ 


BCU 


*+2 


LDR 


RGFO 


STR 


TOP 


ST A 


SMBL 


STP 


OAPl)^ 


i^UN 


WMGtPLUS 


CAD 


5MRL 


RUN 


FXIT 


STP 


QSUrX 


RUN 


QSUB 


c.Tp 


■^SUBX 


BUN 


FSUBl 


CLL 


DFLTA 


TFL 


OFLTA«00#3 


BUN 


MOntA 



THE V«{E1»E2»E3)» CASE* 
ASSEMBLE STP t RUN 

run back the v= 

The v*(ei»f?» case 
?=^tnish incrementation of v 



FIX UP BUN INSTRUCTION 
COMPILE AN UNTIL OPERATOR 



AND THE LEQ OR 6EQ RELATJO^I 



THE V=(clf CASE* 

;v.sspmBLE V = E1# STPf BUN 

RUN BACK V=V 



R E ^Em E R I F E 2 BEG IN S W I T H 
THE CHARACTER MINUS 



COMPILE +* AND THEN CDMTINUE SCANNING 



THE V~F1» CASE* 

ASSFMP.LE V-F1> STP> RUN 
SCAN V= AGAIN 



021 16 



1966 



SEMI BSA C+«2 



SEMICOLON GENERATOR* 



021 17 





1967 




LOB 


OMCRM 


021 IS 


/^, 


19^.8 




CLL 


OMCRN 


021 19 





1969 




DPB 


MORM»I 


021 20 





197C 




CFA 


FU?gMDf64 


m 21 





1971 




see 


A+ 


021 ?2 





197? 




CFA 


PRCMD#64 


On 23. 





1973 




BCE 


P + 


0?1 24 





1974 




LDB 


DELTA 


021 25 





1973 




BUN - 


* + l 


021 .^6 





1976 




.BUN 


DELO 


021 27 





1977 




f^UH 


OFLl 


021 28 





1978 




f^UN 


DFL2- 


621 t9 





1979 




RUN 


DFL3 


'021 30 





1980 




BUM 


DFL4 


021 31 





19S1 


DEL 5 


SIP ■■ 


CMPLX 


.021 32 





1982 




BUN 


RIGHT- 


0.?l 3? 


C)' 


1983 




BUN 


DELO 


021 34 





1984 


*8 


STP 


rsuRx 


021 35 





19?^5- 




RU^J 


YSUBl 


021 36 





19-86 


^■8 


CAD - 





021 37 





19B7 




IFL - 


Ofl2»10 


021 3B-. 





1983 




BSA 


*+2»2 


021 39 


A 


19^ 




RUN 


MOR^^ 


21 40 





1990 


M£MST 


TFL 


tag»oo»i 


C21 41 





1991 


- 


BUN 


HORM 


021 42 





1992 


^A 


STP 


PRSBX»CRC 


021 4-? 





1993 


— ' 


BUN 


PR SB 


021 44 


-5.. 


1994 




LDB 


FUMS 


021 46 





'1995 




BUM 


B- 


021 46 





1996 


DEL! 


STP 


CMPLX 


021 47 





1997 




BUN 


RIGHT 


021 48 


a 


1998 




CLL 


'^l 


021 49 





1999 




BUN 


Q + 


021 50 





200C 


^-E 


SFA 


DEL4f li»0 


021 51 





2001 




ST^ 


WEMX 


021 52 





2002 




BUN 


W«^N!#DEL4 


021 ^? 





7003 




CNST 


34661000000 


021 ^4 


c 


2004 


5tF 


STP 


WFMX 


021 55 


p. 


2005 




BUN 


wfh*ah- 


C71 56 





2006 




CNST 


30147000000 


021 S7 





2007 


DFLO 


STP 


SFMTX 


021 5B 


o 


2008 




RUN 


SEwic 


021 ^9 





200g 


D£L4 


STP 


RFMXfOPRND 


021 60 





2010 




RUM 


RrWtF- 


021 61 





2011 


*A 


STP 


RFMXjDIMS 


21 62 





. 2 0X2; 




BUN 


RE?^»F- 


021 ^^ 





201? 


-A 


CLL 


SER 


021 64 





2014 




CLL 


O^X 


021 65 





2015 




CLL 


^l 


021 66 





2016 




CLL 


?.S I . 


021 67 





2017 




CLL 


DELTA 


-'21 66 


J 


201^. 




CLL 


TAG 


021 69 





2019 




dUN 


N!09M 


021 70 





2020 


>-c 


STP 


DFCNX 


021 71 





?C21 




BUN 


DECM 


021 72 





2 022 




BUN 


DEL 5 



CHECKS FIRST FOR LABEL mt>E§ 
EXIT IF EXPECTING A SEMICOLON 



CHECK FDR FUNCTION OR PROCEDURE CALL 



OTHERWISE BRANCH ACCORDIMG TO THE 

SETTING C'E' DELTA 
DELTA UNSET 

FOR^ state'^ent ♦ AFTER' ili»E2 *£3 ) l:::.:: 

THIS location is WASTED 

FOR statement* AFTER E 

AF TP-R OTKFR W I SE :» SE6MEN T t SUBROUT IHt » ETC ♦ 

DECLARATION (E#64» INTEGER* FORHATJ 



PROCESS PARAMETER 
INCREASE SEMICOLON COUNT 

I F IT WAS 2 1 SET TO EXPECT LABELS ♦ 
COMPILE A PARAMETER CALL OP 

FINISH EOR LIST 
(SEE Q+ BELOW J 

EXTRA OPERAND 



IMPROPER SUBSCRIPT 
SEMICOLON IS ){ 

APE THERE ANY OPERANDS ON THE STACK 
IF SO THEY HAD BETTER BE ACCUM SYMBOLS 
ARE THEf^E A?^V DIMENSIONS LEFT 
h't HOPE NOT 

IF FVEPYTKIMG IS COPACFTIC* 

CLEAR ALL SWITCHES IN SIGHT* 

JIV4 pRcpAR^fl^TioN FOR A fiEW STATEMENT 



021 


73 


■■ 


2023 


DEL2 


DE FM 


* 


021 


t4 





20 23 


DEL3 


STP 


OSUBX 


021 


75 





2024 




BU?4 


QSUB 


0?1 


76 


Q 


2025 


*Q- 


IFL 


PSl»00»0l 


mi' 


77 





2026 




STP 


ASHBX 


021 


78 


Q 


2027 




BUN 


ASMQLfBUNFR 


o?i 


79 





2028 




STP 


C.HPLX 


021 


80 





. 2029 


UPSLiM' 


F424 


CRA»01»WMG 


021 


ai 





2030 


,-K-r 


STP 


R^MXtFXFC 


021 


B2 


n 


. 2031 




RU&i 


aEM»c+ 


C21 


83 





2032 


^A. 


STP 


DECNX 


021 


84 





2033 




BUN 


DFCN 


C21 


85 


o 

'-/" 


2034 




CLL 


PHI 


021 


86 





2033 


*B 


STP 


RF.MX»FV 


021 


87 




2036 




BUN 


RFHfB- 


021 


8Q 





2037 




BUN 


DEL4 


021 


99 





2038- 


^C 


STP 


FXU^^X 


021 


90 


0' 


2039 




BUN 


FXUP 


21 


91 





2040 




BUN 


F- 


on 


94 





2041 


INPUT 


CAD 


CRJ 


021 


9*y 


'G 


2042 




RUN 


A + 


021 


98 





2043 


OUTPT 


CAO 


CRK 


021 


OQ 





20&4 


^A 


STA 


STSV 


022 


00 


,y 


2C46 


*-R 


STP 


ASMPX 


022 


01 


p, 


2046 




PUN 


ASMBL#oUNFR 


.02f 


02 





2047 




IFL 


TAG#O0»! 


2*2 


d? 





2048 




guK 


NLRB 


022 


06 





204^ 


PUT CM 


STP 


NUL5X 


022 


07 





20 50 




BUM 


NULSB 


022 


08 





2051 




RU^! 


R- 


022 


11 


, 


2052 


LABEL 


STP 


A5M3X 


022 


12 





2D53 




mJH 


AS^^».L •RIJMZ 


022 


3 3 





2054 




IFL 


UPSLNi62»29 


22 


14 


n 


2055 




STC> 


c^'PLx 


022 


!'=> 





2056 




R 'J ,^l 


WMGfCRl 


022 


16 





2037 




CAD 


CPA 


022 


17 


r^ 


2056 




nUN 


EXIT 


022 


2*^ 





2059 


LABCVl 


DFFrHl 


* 


0Z2 


2! 




2059 


*A 


STP 


PRSBXfCRA 


0?2 


22 


Q 


2060 




RUN 


PRSP 


0-22 


25 


■;'] 


2061 


NLRR 


CLL 


DFX 


022 


26 





2062 




RUN 


NORM 



Ac.^~PM«i p <;TP*a!!K? tm cap t nnp 
ASSc.mble BU.'^I around THE LOOP 



COMPILE INPUT OR OUTPUT* IF THIS 
FOR APPEARED THERE. 

i^Tx UP ALL The buns to This for loop 



DROP The for mode 



RELEASE THE SYMBOLS FROM THE 

FOR-^VAR TABLE STACK 

THEN DO LIKE A REGULAR SE^^ICOLONt 



ASSEMBLE RUN FORWARD 



COM^A BETWEFM two INPUT OR 
OUTPUT DECLARATIONS 



ASSEMBLE BUN 0000 

as THE FIRST INSTRUCTION OF A DFCLARATTON 



COMPILE CIRCLE I» CIRCLE A 



COMPILE CIRCLE A 
( INPUT OR OUTPUT} 



•MARK B REGISTER UNKN'OWN 



022 29 206^ ■ FR^'T STP AS^BX 

0?? SO 2064 ^U,Ni ASMBLiBUi^rR 

0?2 ^l 2065. IFL DELlAiOOfS 

022 3? 2066 , -TP CMPLX 

02^ 33 206^ ^Un LEFT 



F R W A i i A S S F ^fB i- F B '^^ ^^ A k 013 N D < 



021? 
022 
0?2 

025> 
0?2 
02^2 
-0'2-2' 
022 
0?2 
0?2 
022- 
022- 
0?^ 
022 
022 
022 
022 
022 
C?2 
.C?.2 
C,22 
022 
022 
22 
22 
•0 2? 
2^ 
022 
022 
022 
022 

^ C £. 

022 
022 
022 
022 
02? 
22 
22 
022 
02? 
022 
022 
022 
022 



36 

^7 

3'H - 

3^ 

1 /% n, 

41 

42 

43 

44 

45 

46 

47 C 

48 
^9 6 

50 c 

51 

52 

53 

54 C 

55 

66 
31 

58 C 

59 -^ 

60 

61 

62 

63 

64 

65 
6'6 C 

67 

68 ^ 

69 

70 
?1 
72 
f 3 u 

74 

75 

76 

77 

78 " 

79 
BO 

ei 

82 



2068 
2069 
207 
20 71 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2030 
,.2,081... 
2062 
20B3 
2034 
2085 
2006 
2087 
2086 
20a<? 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
209^ 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
7114 



FRMCM IfL 
StP 

PFA 

^L STP 
BUN 

LDB 
CAD 
SLS 

5TA - 
^A CLL 

*B CLL 

S^IP 

BUN 

BFA 

BFA 

BFA 

BFA 

BFA - 

BFA 

5RT 

CAD- 

SLT 

5TA 

PX3H 

;*M ■ SRT 
CAD 
SLT 
STA 
RUN 

^D CAD 
SLA 
STA 
PUN ^ 

^»R DFL 

*C CAD 
LDR 
BZR 
BFR 
STA 

RUN 
LDB 
IPB 
*L BUfI 
TFL 



TAGtOGf 1 
FXCTR 

^ ^ « kl 

LPFT»02>02 
rxETCrD 

INSXtDlNS 

INS2 

DIMS 

DHSCR 
8 

0*23 

INSTR 

DESCR 

...PASSX 

Pass 

L-»02«24 
N 4- • 9 i ♦ 8 
D+f 02i03 
C+»02#23 
S-f »02»14 
R4f 02»04 
2 
DESCR 

7 

INSTR»55 

B* 
1 

DFSCR 
1 

PASS 
DF5CR 

2 

Tf^sTp .33 

3- 

L+»62»29 

DESC!^ 

IN5TR 

L + 

F4-,83 tO 

!NSTR»02 

WRITX 

WR I T 2 

DIMS 

N}0RM«9999 

A- 

L-»62»29 



PRGCESS FOfmAT STRING* 

(THIS IS A LITTLE .^"CAf^JNEP) 
RFGIN NEST 



LEFT PARENTHESIS 

I^UMERIC 

DOT 

COMMA 

STAR 

RIGHT PARENTHESIS 



INSERT ^'UHBER(33 PI ELD J ALPHA( 52'^rELD) 
BUILD NUMBER 



INSERT ^4Uy,3FR IN 83*FIFLD 

INSERT NUMBER IN EITHER 02 OR 83 FIELD 
(OR DO NOTHING - AFTER *) 



RIGHT PARENTHESIS* GE 



02? 83 


■ 


2115 


STP 


RFMX»DIMS 


022 S4 


0.: 


2116 


BUM 


REW**4-2 


C22 85 





2117 G2 


F&24 


7043 tOf* 


22 S6 


a 


2118 


SRS 


4 


022 87 





2119 


LSA 


1 ■ 


.on BB^ 





:2120 " 


STA 


IN STR 


022 39 





2121 


BUN 


R- 


022 90 


.0 


212? *S 


r>FL 


2FTA*62t35 


022 91 





2123 *S 


CLL 


TOPUS 


022 92 





2124... -. 


G..L.L.- 


iHsm 


022 93 





2125 ^B 


-. STP 


WPTK 


022 94 





2126 


BD^\ 


IftPT 


22 9S 





212f7 


DLB 


IOPUS*0^»2 


022 96 





2128 


SLA - 





022 97 





212^: ■ 


ADL 


INSTR 


022 ^0 





2130 


CAD 


CHAR 


022 99 





2131 


BFA 


C+»C2»14 


023 00 





2132 • 


nnB 


INPT»9992 


023 01 





2133 


IFL 


INSTR»12»20 


023 02 





2134 


STP 


WRITX 


023 03 


. 


2135 


BUM 


WRIT2 


,023 0^ 





2136 


BUN 


S- 


023 05 





. 2137 *C 


!FL 


INSTR^12»30 


023 06 





2138 


IFL 


2ETAt62#35 


023 07 





2139 


RUM 


R- 


023 08 





2140 ^F 


SLA 


2 


023 09 





2141 


STA 


rNSTR#S3 


023 10 





2142 


BUN 


R- 


0?3 13 





2143 SG^^T CAA 


PRFV 


023 14 





214-4 


ADA 


BUF-f-98 


023 15 





?1&5 


RZA 


*+3 • 


023 16 





2146 


STP 


'/RITX 


023 17 





. 2147%. 


p'jr.' 


WRITS 


023 18 


■ 


2148 


IFL 


BUF»64»1 


0^3 19 





2149 


CAD 


BUF 


023 10 


A 


2150 


EXT 


BCUL2 


023 21 





?151 


STA 


BUF 


23 22 




2152 


SLA 


4 


023 23 





2153 


Am 


LOC^! 


023 24 





2154 


STP 


I.MSXf ^UNS 


023 25 





2155 


PUN 


IMS 


023 26 





2156 


IFL 


TAG»00»1 


023 27 




2157 


IFL 


DFLTAt04»4 


023 28 





2158 


CAD 


LOCN 


023 29 





2159 


LbR 


BUF 


023 30 





2160 


STR 


LOCN 


023 3X 





2161 


STA 


LOCNP 


023 32 





2162 


STP 


EXCTR 


023 33 





2163 


BUN 


SCAN 


23 34 


n 


2164 


IFL 


ZUTA»62»39 


023 35 





2165 


STP 


TRTGX 


023 36 





2166 


FUN 


TRTG 


023 37 





2167 


DFL 


2UTA*62f39 



LOCATION Ot^ MATCHING LEFT PAREWThFSIS 






TRANSFER FIVE CHARACTERS 
AT A TrME» UP TO AND 
iNCLUDrWG THE NEXT ASTERISK, 



SEGMENT BEGINNIMG. 

TF BUFFER NOT E^^TY# DUMP IT 



INCREASE SEC3MENT NU,VSER 



STORE 5EG NOtLOCN IN FUN-STACK 



FIX UP FORWARD REFERENCES TO THIS 
SEG^^ENT MUMbER 



023 38 
023 39 



2166 
2169 



CAD 

RUN 



EXIT 



COMPTLF CI^CLF VtWHICH 
WILL FINISH THE SEGMENT* 



23 
023 
023 

V CD 

023 

■0-23 

023' 
.023 
OrB 

023 

023 
023 

023 
023 



42 0- 

43 

44 
AC n 

46 

47 

46 

90 

51 C 

52 Q 

53 

54 
56 

■56 



2170 

21T1 

2172 
-r-i -y^ 

£- i ' ^ 

2174 
217§ 
2176 
2177 
217B 
2179 
2160 
2181 
21S2 
2183 
2184 



END 



STP 
3UN 

IFL 

STP 

BUN 
CFA 
BCE 
CFA 
BCH 
CfA 
BCE 
CfA 
BCU 
CLL 
BUN 



CMPLX 

RIGHT 

TAGt00>l 

EXCTR 

SCAM 

CWFNO ♦67 

END 

RPAR 

END 

Sf^lCLN 

AMALZ 

K0MA».S7 

A- 

TAG 

ANALZ 



The word Ef^D« 

SCAN UWTIL WE REACH 

END iR IGHI P AR.FN f SEf^, I C OLOM f OR COM^^ A * 



023 59 

023 60 
023 61 
023 62 
023 63 



2265 
2186 
21B7 
2188 
21^9 



FIN 



.M 



STP 

PUN 
MLS 
MNC 

BUN 



CMPLX 

RIGHT 

T 

400»T 9O 

800 



fFIMlSH. 

THIS RIGHT PARENTHESIS SHOULD MATCH 
THE LPET PAREN TO WHICH WE 
IMITIALfi^ED THE OPERATOR STACK 



023 67*^0 

023 68 t 

023 69 

023 70 

023 71 

023 72 

0-2^ 73 



iT. i ■y w 

2191 

2192 

2193 

2194 

2195 

2196 
2 j^7 



-"^iyft- 



7rA 



*R 



BCE 
CAD 
BUN 

STP 
BUW 
CAD 
BUN 



« i > .'N ~t i.y r \j -r 

B + 

CRB 

EXIT 

MULSX 

NULSB 

ARFND 

A'^ALY 



s IN STATEMENT* 
REPLACE BY CIRCLE B 0P« 

If ^ ;^pP£AR5 IH ARRAY DECLARAT I0^3t 
GO IMTO ARRAY-FILL NODE* 



23 
023 
023 
023 

023 

023 

023 

02^ 

023 

023 

023 

023 

^23 

023 

023 

023 

023: 

23 



76 

77 
7B 
79 
BO 
61 

82 

83 

84 
B5 
86 
37 
S8 

89 

90 

91 
9? 
93 ^^ 



2198 INDEX STP INSX»AVATL 

2199 BUiN ins 

2200 STR A+»04 

2201 STR B+»04 

2202 SLT 14 

2203 STP I'MSXfA^AS 

2204 "UN IMS 

2205 LT>^. OPf^ND 

2206 DLB - G»6^t0 

2207 LHR - 

2 2CB *A STR *9Z3 

2209 *B STB --tOS 
2 21- LOB OPRND 

2211 STA - ^464 

2212 STP C^^PLX 
22'' 3 BUN WMG»CRR 

2214 STP CMPLX 

2215 BU>^ LEFT 



INDE 
OF A 
FIRS 

IH A 

THE 
I'M A 
REFF 
IS I 

v = o 

R = 
AAAA 



X OP I 

{ n* I 

T FIND 
SSOC M 
INCREM 
PAS- A 
PENCE 
NiTtAL 
r^iORMAL 
FLOAT I 
-LOCAT 



S INSERTED BETWEEN A AND ( 

T BEGINS PROCESSING SUBSCRIPTS* 

SOM"^ AVAILABLE LOCATION 
FMORY, THIS WILL BE CALLFD 
^,MT WORD FOR THIS ARRAY* 
N'^ OPERAND-'STACKS WE PUT A 
TO THIS INCREMENT WORD* WHICH 
I ZED TO V 5 R 0000 AAAA 

V=l CALL BY NAME Va2 MONITOR 



NG 



R=l FIXED 



ION OF OTHER INFORMATION 



PUT CIRCLE-*'^ OPERATOR ONTO THE STACK* 
ALSO A LEFT PARENTHESIS 



023 


94 





023 


95 





023 


f€> 





023 


97 





Q23 


9S 





023 


99 





024 


02 





0:24 


03 





024 


04 





024 


OS 





024 


06 





024 


07 





a,2-4' 


08 





0?4 


09 





024 


10. 





024 


11 





024 


12 





02^ 


13 





024 


14 





024 


13 





02-4 


16 





024 


17 





024 


18 


,'^, 


024 


1^ 


c 


024 


2- 





24 


21 





024 


22 


0. 


024 


23 





024 


24 





024 


25 





024 


28 





024 


2-9 





024 


30 





024 


31 





024 


32 





024 


33 





024 


34 





0.24 


35 





024 


36 





024 


.39 





024 


40 





024 


^^1 


Q 


024 


42 





C24 


43 


r-^ 


02^ 


44 





024 


45 


p 


024 


46 





024 


47 





024 


i».H 






2216 




CAD 


V6 


2217 




STP 


CMPLX 


Tt 1 Q 




OfiM 


\foa\ 


«-<:. A O 




(.? ~" I ■> 


* I > ).» t>< 


2219 




CAD 


PLUS 


2r220 




rri 


PHI f 00.1 


2221 




BUN 


EXIT 


2222 


NDXCM 


STP 


prsbxk:ry 


2223 




RUN 


PRS8 


2224 




■STP 


,SP-FPX 


Z22S 




RUN 


SPFt^O 


2226 




STP 


CNPLX 


2227 




BU^' 


W<^G»^LU5 


222^ 




CAD 


PAR 


?229 




P^FA 


A+»ll»2 


223'^' 




BUN 


B + 


2231 


*A . 


DLB 


PAR«64fO 


2232 




LDR - 


1 


2233 




STR 


TEMPI 


2234 




LDB 


ARAS 


22 35 




D L R - 


9 64»€ 


2236 




CAO - 





223 7 




EXT 


EX 42 


2238 




MUL 


TEMP! 


2239 




STR - 


Of o4 


2240 


*B 


LfW 


ARAS 


2241 




Lf^R - 





2242 




BFR 


MORN* 22 »0 


2243 


INSXX 


STP 


INSX.^^ULT 


2244 




BUN 


INS 


2245 




PUN 


NORW 


2246 


SPERO 


STP 


CMPLX 


2247 




BUN 


WMG.DOT 


2248 




IFL 


CMPLXf04t6 


224*5 




STP 


REMXiDIMS 


2 250 




RtfN 


PFM.VRRLl 


2251 




STP 


WE!^X 


2252 




BU."^ 


WEMtVRBll 


2253 




CNST 


3 0147 000000 


2254 


SPE^RX 


BUN 


«■ 


2255 


DEC^S 


LDB 


MODE 


2256 




DIB - 


0»22»1 


2257 


nrc.^x 


ORH 


*#100 


2258 




STP 


RrMX»MCDE 


2259 




BUN 


pC&/!,* + P 


2260 


G5 


F4 24 


? 5 2 * » * 


2261 




CFA 


NDXMn»64 


2262 




LDB 


DECNX 


2263 




BCU - 





2264 


f'lLTS 


LDB 


ARAS 



FURTHERMORE* INSERT THE CHARACTERS a+ 

mjo The in^ut string 

FINALLY* SET UP TO IGNORE THE' LEFT 
PARENTHESIS WE LL GET NEXT FROPt SCANNERt 



COWA IN SUBSCRIPT POSITION. 

FINrSH EVALUATING SUBSCRIPT >MAKE SURE 

■IT ::.|s::"f:|:x€d'"'-'p-otnt'*'-'- :::::":"::::::.::: ■.■.:■■:■■■.:: 

MULTIPLY IT BY THE PROPER DIMENSION 
INSERT PLUS OPERATOR 



IF THE DIMENSION WAS A CONSTANT* 

THE INCREMENT Vv'ORn CONTAINS SOME INCREWNT 

WE HAVE SUPPRESSED FROM THE TARGET CODE* 

AND WE MULTIPLY IT BY THE DIMENSION 

AND REPLACE. IT IN THE INCREMENT WORD. 



IP /i^pi E^^'XY SUBSCRIPT APPEARED* 
PUT THTS DIMENSION ON MUlT STaCIC 



^'ULTIPLY PREVIOUS RESULT BY 
THE NEXT DIV,F>^SION 



IF THERE IS NO NEXT DIMENSION* 



USE I*AND SAY IMPROPER SUBSCRIPT 



DECREASE PARENTHESIS COUNT ON THIS MOOf 

AND IF IT IS NOW ZERO* PULL OFF Tm_ 
TOP OF THF VODE STACK 



IF WE FINISHED THE SUBSCRIPTS OF AN ARRA^ 
WE GO THROUGH MORE MANI PULATI ON^^ 
OTHERWISE WE EXIT* 



024 

oa# 

C?4- 

024 

024 

024 

024 

024 

0^4 

024 

024 

024 

24 

024 

024 

024 

024 

0Z4 

024 

024 

024 

0-24 

024 

024 

024 

0?4 

024 

24 

024 

024 

24 

024. 

024 

024 

024 

024 

024 

024 

024 

024 

024 

G?4 

024 

024. 

024 

074 

24 

C24 

024 

025 

025 

025 

025 

025 



49 

50 

51 

52 

53 

54 

55 

56 

57 
56 

:5:9.: 0,.. 

60 

61 
h2 

63 

64 

65 

66 

67 

68 C 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
BO 

81 
H-? n 

83 

84 0- 
S^ 

n^" 
87 
»« 

89 

90 
^1 

92 

93 

94 

95 
95 

97 

98 

99 

00 - 

01 

02 

03 

04 



2265 

2266 

2267 

22 68 

2269 

22 70 

2271 

2272 

2273 

2274 

22T5: 

2276 

2277 

2278 

2279 

2280 

2261 

2282 

2283 

2284 

2285 

2286 

2287 

22 8 B 
?289 
2290 
2291 
229? 
2293 
2294 
2295 
2296 
2297 

2299 
2500 

23 01 
2^0? 
2303 
21504 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
231? 
2313 
2314 
23 1 5 
2316 
2 317 
2318 
2319 
2320 



*A 



G3 



*K 



G4 






TWL 



DLR 

■SIR 

STB 

Lr>e ■ 

STB 

CLA 

AOO ■ 

BSA 

LDR 

STR 

STP 
BUN 
STP 
BUN 
STP 
BUN 
STP 
BUN 
r424 

CAO 
EXT 
ADD 

STA 
BFR 
CAD 
STP 
RUN 
STP 
BUN 
STP 
BUN 

CTD 

pUN 

F424 

IFL 

STP 
BUM 
STF^ 

BUN 
IFL 

ST? 
RUN 
HLT 
BFA 
ST^ 
RUN 
STP 
RUfs 

■•^ I lh\ 
'■ . U TN 

STP 
RUN 
RUN 

STP 

BUN 



0»6^-t»0 

Q+»C4 



R + »04 


A + • 1 

V4 

PAR 

..'a-*-: 

CMPLX 

LEFT 

SPERX 

SPERO 

CMPLX 

RIGHT 

REMXtARAS 

REMf ^^+2 

6742 ♦Ot* 

io 

BCUL2 

*»64 
^+#22*0 

PAR 

!MSX»MULT 

I^S 

USURXiC'^N'^ 

USUr 

REMX»vuLT 
REH» 1+ 

DcrM y » Ml !i c 

RPM»-K-+2 

6938»0»-?:- 

KAPPAfOO*! 

PRSB 

RF^^X^^^ULS 

REW>J+ 

KAPPA »00*1 

RF'^XfOP 

REM • NORM 

12 

E+»65 tO 

C^^PLX 

VRRL 

CMPLX 

WMG»DOT 

F- 

INSX^-^ULS 

IMS 

K- 

REMX»OP 

^EHsA- 



,^IOW WE FINISH PROCESSING ARRAY S85CRIPTS 



The final dimension to multiply by 
15 either the constant 1 



OR A PARAMETER TO THE PROCEDURE 



MULTIPLY BY IT« 



PULL OFF TOP OF ARRAY STAC^C 



I NCR WORD/64 IS CHANGED FROM THE 
INCRE'^FNT to the base ADDRESS PLUS THE 

tNCRE^^ti^T (MOD lODOOT 



IF AN EMPTY SUBSCRIPT HAS APPEARED* 

PU"^ LAST CsT'-'ENSION ONTO MULT-STACK 

WITH THE OTHERS 

^UT OUT The RECALCULATED BASE ADDRESS' 

AS A cJ^f^/^METFR 
SET MULS TO N^ULT ->TacK IH REVERSE ORDER 

FORGET TOP EN^RY OF MUL5> IT IS ZERO 
STORE THE PARAMETER* 



WE ARE FINISHED. PUlL SPURIOUS -f OPERATOR 
(WE GET AN EXTRA ONE EOR EACH 
EMPTY SUtLSCRIPT) 



MULTIPLY TOGETHER ALL DIMENSIONS 

BETWEEN EMPTV SUBSCRIPT POSITIONS 



REMOVF EXTRA 4 SIGN A'vJP STORE 
COMPUTED MULTIPLIER 



025 05 


a 


2321 


m 


HtT 


99 


026 06 





2322 


^a 


Loe. 


MODE 


025 07 





2323 




CAO - 





025 08 





2324 




CFA 


PU«H.n»64 


025 09 





.2325 




ecu 


NORM 


025 10 





2326 




LDB 


FUNS 


025 11 


c 


2327 




CAO - 





025 12 





Z3tB 




5TP 


USU«X»CRN 


025 13 





232v 




B5A 


ijSU^#2 


.025 ■■14 





2330 




BUN 


NORM 


025 17 





2331 


FMPTY 


CFA 


PRCMD»64 


025 IB 





2332 




RCU 


A + 


025 19 





2333 




LDB 


SSC 


025 to 





23 34 




CLL - 





025 21 





2335 




Oft - 


0»129l0 


02.5 22 





2336 




ryfl - 


0»23»39 


025 2? 





. 2337 




CAD 


5SC 


.:0.?5 24 





233?^ 




SLA 


4 


f>25 ?5 





73^,9 




ADD - 





25 Z6 





234O 




SIP 


INSX^OPRND 


02-5 27 





2341 




BUN 


INS 


QM' :m 





2^42 


A^MS 


SIP . 


iHsxf^ms 


025 ^ 


0^ 


2343 




BUN 


INS 


-■025, 30 





2344 




IFL 


SSC»GC»1 


025 3t 


^^ 


2345 




IFL 


KA^PA»00»1 


25 3'2 





2346 




BUN 


NORM 


025 33 


■ 


2347 


*A 


CFA 


Nr)XMD»64 


025 34 





2348 




BCU 


B + 


025 ^5 





2349 




LDB - 





025 36 





2350 




LDR - 





025 37 





2351 




CFR 


FUNiv^D.64 


025 38 





2352 




BCU 


B4- 


025 39 


G 


2353 




LDR 


FUNS 


02^5 40 





2354 




CAD - 





025 41 





2355 




BSA 


B+f3 


C25 ^2 





2356 




STP 


RPWXtOP 


025 43 


o' 


2357 




BUN 


REM»E+ 


023 44 


.0 


2358 


*e \ 


STP 


WFMX 


025 45 





2359 




BUf^ 


WEM^NORM 


■025 46 


a 


2360 




CNST 


3Cl><^/f75000 


025 47 





2361 


^■F 


LDB 


ARAS 


025 48 





2362 




rFL - 


» 2? f 1 


C?5 49 





2363 


SRL 


CIA 


S^MRL+l 


025 50 


n 


2364 




RUfV 


INSXX 


025 53 





2365 


COLON 


CLL 


KAPPA 


25 54 





2366 




LDB 


OPRND 


025 55 





2367 




DLR - 


0*6490 


025 56 





2368 




CAD - 





025 57 





2369 




5TA 


A+f 64 


025 58 


c 


2370 




CAD 


A + 


025 59 





2371 




STP 


I?NiSXtFUN5 



IF m fMPTY SUBSCRIPTS OCCURRED 

BUT IT IS A NAME CALL ANYWAY* 
W? ^UT IT IN AS A NAME PARAMETER* 



FMPTY SUR SCRIPT POSITION OPERATOR 

IF IT IS SFMSFD WHILE COLLECTING 
N&W PROCEDURE PARAMETERSf 

CREATE A PSEUDO SJMPLE VARIABLE 
FOR THIS SUBSCRIPT MULTIPLIER 



PUT IT INTO THE OPERAND STACK 

AND INTO THE LIST OF MULTIPLIERS 
FOR THIS ARRAY 



OTHERWISE CHEC< THAT THIS EMPTY POStTTON 
OCCURS IN AN ARRAY PARAMETER 
WHILE CALLING A PROCEDURE 



lyPROPpf^ pMPTv SUBSCRIPT POSITION 

RECORD IT IN ARAS 

AND PUT MARKER ON MULT STACK. 



BEGINNING OF FUNCTION CALL 



PUT NAME OF FUNCTION k'ERF CALLING 
ONTO FUN-STaCK 



02^ 


60 





025 


61 





025 


62 





^25 


63 





025 


66 


D 


CV?5 


67 





025 


68 





25, 


11 





C25 


77 





025 


73 





1525 


74 





025 


75 


d 


025 


76 





025 


T7 





025 


79 





025 


79 





02S 


S^ 




025 


81 





025 


a 2 





0t25 


m 





023 


84 





025 


85 


.'"^ 


025 


a6 





025 


S7 





02# 


^6 





25 


S9 





025 


90 





■026 


91 





02S 


92 





o^5 


<r3 





025" 


94 





025 


95 





n75 


96 





025 


97 





025 


98 





025 


99 





026 


QO 





02^ 


01 





026 


02 


o 


026 


03 





026 


04 





026 


05 





026 


06 





026 


07 


n 


026 


08 





26 


11 





026 


17 





026 


13 


Q 


026 


14 





026 


15 






2372 
23 73 
2374 
2375 



2376 

2377 

237S 



237^ 
236 
?.3B 1 
2382 
2383 
2584 
2385 
2386 
2387 
2%BB 
2389 
23^0 
2391. 
239? 
2393 
2394 
239*5 
2396 
2397 
2398 
2399 
24 00 
24 01 
2402 
240'> 
24 C 4. 
2405 
2406 
2407 
2408 
2409 
24 IC 
24 11 
2412 
2413 
24 14 
2415 
2416 



2417 
24 le 

241'^ 

24? 

2421 



BUN 
CAD 



INS 

cm 



COMPILE A CIRGLE-O 



*.A 



'UNCM 



DUMP 



MONT 



^c. 



SUPR 



Q f { \1 C V t T 

D »-' <N u 'v i. 1 

F4241 0*0^0 



5TP PnSBXfCRC 
BUN PRSE 
BUN HORf^ 



CAD 
SLA 
5TP 
BUN 
nrfL 
DLB 

STP, 

BUN 

STB 

IFL 

DFL 

IFL 
■ IFL 

STP 

BUN 

CFA 

BCU 

OfL 

STB 

CLL 

BUN 

RFA 

RUN 

DLB 
^ LDR - 
' RFR 

DFL - 

BUN 
' DFL - 

LDB 

IFL - 

PU<NS 

DFL - 

LDB 
STP 
BUN 
BUN 



LEVEL 
4 

INSX»DUMSS 

IHS 

S+f 61 *4 

L0Ci^J«S4»0 

'^.1ONT»300 

ASMBX 

ASMpLfBUNZ 

L0CN»64 

L0CN»44»3 

THTf62»7l 

TAG ♦00*1 

CHt^OOfl 

FXCTR 

SCAN 

SMCLH 

•* + 5 

TMt»62*29 

S + »61 

TAG 

ANALZ 

'^+2 #01 #0 

MONT+1 

L » 64 ♦ ^ 



^--«-2t21 #3 

0»;?2»37 

A+#0299 

0»12»60 

DUM5S 

0»43»1 

MONT+1 

0»12»30 

ARTHG 

LIBRX 

LIBHF 

HOf^T + i 



TFL TAr,»00O 

DFL NU»62»29 

IFL DELTA #00 ♦ 4 

5TP ASMBX 

B U H A 5 M B L f B U N F R 



COMMA IN PROCf:DURF»FUMCTlO« CALL 

STORE THE PARAMETER 



PUT RECORD ON DUMB STACfCtFOR OVERLAY 



MA<F SURE LOCN IS AT LEAST 300 



MONITOR STATEMENT* 
PREPAS^E FOR NUMERIC LABELS 
GET NEXT ITEM FROM SCANNER* 
IF IT IS A SEMICOLON WE EXIT 



IF iT IS NOT AN OPf-RANp wE kkC^CLE 



MARK OPERAND AS MONT TOREH »UNCLASS! F lED 

OR IF PROCESSING DUMP* 

AS A VARIABLE TO BE DUMPED 



PUT MONITOR SUBROUTINE INTO PROGRAM 



SUBROUTINE 



COMPILE BUH FORWARD 



026 


16 





26 


ly 





0?6. 


IB 





026 


19 





0?6 


20 





026 


21. 





026 


22- 





n-jA 


vx 


n 


^ :;.. SJ 


£j -' 




26 


24 





026 


25 





026 


28 





2^:- 


29 





02«' 


30 





026 


31 





026 


m 





026 


33. 


■€ 


026 


34 





026 


35 





026 


36 





026 


37 





026 


38 





026 


39 





026 


40 





026 


41 





■026 


42 





026 


4 3 





•-■■20 


4^f 


rt- 


026 


45 





026 


46 





026 


4? 





026 


4B 





026 


4 9 





26 


5C 





026 


■:5.1.' 





026 


52 





026 


55 


p 


026 


56 





026 


57 





026 


58 





026 


5<? 





026 


60 





026 


61 





026 


62 





026 


61 





026 


6^ 





026 


65 





026 


68 





026 


6<? 





026 


70 






24? 2 
2423 
2424 

24 25 
2426 

2427 
24Z8 

2429 
24 3 C 
24 31 



2432 

"2^33 
2434 
2435 
2436 
2437 
24 3 B 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 

2449 
24 5 r; 
2451 
24*^2 
24 5:^ 
243^ 
2^55 
2456 



2457 

245B 
2499 
2460 
2461 
2462 
2i:^63 
?464 

2466 
2467 



2468 
2469 

2470 



STP 
RUN 
STP 
BUN 
STP 
BUN 
STP 
RUM 
CAD 
BUN 



rxTRN STP 
BUN 
IFL 
S T A 
IFL 
DFL 
STP 
BUN 
IFL 
DLB 
DBB 
STP 

nun 

CAD 
SRT 
DL?^ 
STA 
IFL 
STP 
BUN 
BUN 
DLB 
S T B 
IFL 
LDP 



-^'A 



PRCN 






STR 
GLL 
STP 
BUN 
BFA 
BFA 
BUM 
IFL 
DFL 
8RP 
RUN 



PROCD CLL 
LDP 
STR 



INS2 

EXCTR 

SCAN 

TRTGX 

TRTG 

newtx»savet 

i*"JEHT 

CRS 

EXIT 



FXCTR 

SCAN 

EPSLN»00»1 

V2 

TAG*00«1 

PFH«62f6 

PXCTR 

SCAN 

PFH»62»6 

V 7 •64 »0 

TRIGX 

TRTG2 

PUF 

4 

Lt64*0 
0»04 

ALEPH»62 9 6 

ASMBX 

ASMBL laUNZ 
NORM 
L»64f 

Q»66 

0t.22»83 



C + >04 
V2 

INPTX 
I MPT 

B+»02»C4 

Ai-»02>24 

INPT 

V2»00f 2 

V2»00»l 

INPT 

* 



RR3 

FRST?»04 



PUT LOrN INTO FUNS 
(RETURN WILL LOOK AT THIS) 

GFT NAME OF SUBROUTINE FROM SCANNER 

DEFINE IT 

SAVE TEMP STORAGES 

COMPILE CIRCLE S# 



XTFRNAL* 



DONT LOOK ON LEVEL ZERO WHEN DOING 
A DECLARATION 
GET NAME FROM SCANNER 

IS |T AN EXT STATEMENT OR EXT PROCEDURE 

EXTERNAL STATEMENT 

DEFINE IT 

RECORD ITS SEGMENT NUMBER 

{THE OVERLAY WRL FTX UP ANY 

cnDU.'nE?n DCPCQCWZ-CC, TO tT UStMa Tut<^ 

SEGMENT NUMBER) 

COMPILE BUN FORWARD 

EXTERNAL PROCEDURE 
MARK AS 83 CODE* 

SCAN OFF THE PARAMETERS* 



{R/04 IS EXIT LINE) 

BYPASS PARTS OF CARD 

UNTIL WF HAVE AN EXTRA RIGHT PARENTHESIS 



WORD PROCEDURE SENSED, 

SET FRSTP TO LOCATION OF 1ST PARAMETER 



0.>6 71 





2471 




LDR 


PR3 


026 77 





2472 




STR 


PRl 


0?6 73 





24 73 




CLt 


PR3 


026 7«t 





2474 




LDR 


CHI 


f 6 75 

'^6 76 





2475 




CLL 


CHI 





2476 




STR 


CHI 3 


26 77 


Q 


24 77 




STP 


XSUB>^ 


026 7li 




247P 




rUm 


XSUa 


026 79 





2479 




STA 


LEVEL 


'^M «'" 


•0 


24-8-n 




. CJ3. ^ 


Or21 ■ 


026 81 





2481 




TFL - 


0»21 *3 


026 82 





2482 


HRf^ 


SUN 


HQRy 


026 35 





2483 


PUNC 


STP 


XSUEX 


26 86 





2434 




auN 


XSUB 


026 87 





2485 




DFL - 


0*11»2 


026 §8 





24^6 




TFL 


FNSWtOOfl 


026 39 




2487 




CAD 


TOP 


26 90 





24B8 




nUN 


FXIT 


026 93 


c 


2489 


PRCC*^ 


STP 


YSURX 


26 94 





2490 




PUN 


Ysu:^i 


26 95 





2491 




BUN 


NORV! 


026 98 





2492 


ARAP?-^ 


LDB 


QPRMD 


026 99 





2493 




•CAO " 




/" -^7 on 

■ /7 01 





2^94 




SLT 







2495 




STA 


ARMS 144 


027 02 





2496 




STP 


YSUBX 


027 03 





2497 


' 


BUN- 


YSUe?: 


27 04 





2498 




BUN^ 


NORM 


027 07 





2499 


TNTG 


CLL 


RR2 


027 08 





25 00 




IFL 


RR2»2I*] 


C27 09 





25 or 




BUtN 


ARRAY 


027 12 





2502 


sooi 


DEFN 


INTG 


027 15 





2502 


FLTG 


CLL 


RR2 


027 16 


f'l 


2503 


ARRAY 


IFL 


DELTA»0C»5 


027 17 


p 


2504 




STP 


CMPL X 


C27 IB 





2505 




BUN 


LEFT 


027 21 





2506 


tKTLCM 


BUN 


NORM 


027 24 





2507 


ardec 


TFL 


lOTA'OO*! 


027 25 





2508 




CAD 


XONE+1 


1 ?7 26 





2509 




STA 


ARR2 



SAVF PREFIX i, 1ST 



SHUT OFF LABEL PROCESSING , '■ 

I^ilTIALlZE DECLARATION 

fTHtS f^ART C0^^MON TO PROC AHD FUNCTION) 

SET LEVEL =^ <C 



MAR?< TYop G*^' THIS PROCEf;URE UNSPrciFTED 



WORD FUNCTION SENSED t 

DO INITIAL STEPS 
SET TAU DIGIT - 6 

COMPILE MAME OF THIS FUf4CTI0N 



RECORD PARAMETER 

4 



ARRAY NAME APPEARS AS PARAMETER 

PUT NAME INTO ARMS 
J1ARK IT AS PARAMETER 

INTEGER DECLARATION 

SET TYPE = FIXED 

T 
BOOLEAN DECLARATION (SAME) 

FLOATINGfREAL* SET TYPE " FLOATIMG 
ARRAY DECLARATION 

DECLARATIONS ARE HANDLED BY SCAf^NFR 



START TO DECLARE A^^l ARRAY » JUST AFTER A( 
OF A(I»J»K»L) IS SENSED 
INITIALIZE ARRIfARRL TO 1 



027 27 





25 1 




ST A 


ARRt 


027 ?6 





2511 




CAH 


CRP 


C27 29 





■ 2512 




RUN 


EXIT 


027 32 





2513 


aracm' 


' 3TP 


NULSX 


027 33 





2514 




RUN 


H'JLSB 


02? 34 


•0 


2515 




LOB 


IOTA 


027 35 





2516 




T8B 


NORM > 9999 


027 M 


0. 


;■ 3517 




CAD 


...CRG 


0?7 57 


- 


25 IB 




SiJN 


; EXIT 


0?7 AO 





2519 


ARFCM 


IFL ^ 


RH0»62#29 


027 41 





2520 




BUM 


NORM 



ARRAY DECLARATION COf-^MA SENSED 
TREAT AS ) ( BUT PRESE.WE ARRA^ MODE 

IF THIS IS A COtMA SFTWEE^'^s DIMEHSI OfslS , 
I T IS . A . C I R CL.E-G OPERATOR 



ARRAY FILL 15 ALL HANDLED BY SCA^^.'^ER 
ilH UMUSUaL WAY) SEE NUMrlER SUBROUTINE 



027 46 


2521 


SE,^,IC 


STP 


CM^tX 


027 47 


2522 




BUM- 


RlCtH^ 


077 48 


2523 




STP 


CMPLX 


027 49 


25^4 




^UH 


LEFT 


027 50 


■ 2525 


SFMIX 


PUN 


* 


027 53 


2526 


qsub 


STP> 


CMPLX 


027 S% 


2527 




RUN 


RIGHT 


27 55 


' 2528 




STR 


■ A5M3X 


027 56 


2529 




BUN 


ASMPL*STPPR 


027 57 


253^ 




CLL 


DEX 


27 56 


' 2531 




IFL 


P1»00»l 


027 59 


253 2 




5TP 


ASMBX 


027 60 


^53 3 




RUN 


ASMbLi'^UNFR 


027 51 


233^ 




CLL 


PI 


^27 62 C 


2535 


OSUBX 


BUN 


* 


027 65 


2536 


RUN 


LDR 


K2 


027 66 


2537 




5TR 


^ K3»C4 


0?7 67 


2538 




LDR 


S2 


027 68 


25 3^ 




STR 


33»04 


027 69 


25^0 




LDR 


SCAN 


027 70 


2541 




STR 


SCNXXtOa 


027 71 


2542 




LDR 


FV 


027 72 


2543 




STR 


STFOL»04 


0?7 73 


25 44 




IFL 


TNFTA»6?»7^ 


027 74 


2543 




BUN 


SCM7 


0.27 75 


2546 


RUN XX 


DEL 


THETAf6?*29 


027 76 


2547 




LDR 


K3 


027 77 


2548 




STR 


K2»04 


027 76 


2549 




LDR 


S3 


027 79 


2550 




STR 


S2»n4 


077 sn 


2551 




LOR 


SCNXX 


27 81 


2552 




STR 


SCAN ♦04 



SEMICOLON IS THOUGHT OF AS )( 

THIS If4NOCENT-LOOJCl.*"f3 THIMG MAY CAUSE 
ALL SORTS OF THINGS TO HAPPENi 



FINISH SETT I^G V^F ■ 
ASSEMBLE STP FOR^-ARD 

3UN FORWARD 



INTERRUPT >IORMAL SCANNING* 

RUN' RACK THE VARIABLE PART 
OF THE FOR STATEMENT AGAIN 



AF'^ER THE = GIGN C0*^1FG* 

RFSTORF f'iORKAL SCAN'^JT^r ^drqcFDURE* 



027 


82 





2553 


RUNX 


BUN 


* 


021 


85 





25 54 


FSURl 


SIP 


REMXfOPR^4D 


021 


S6 





2555 




BUN 


RrM?,4f+2 


021 


S7 


■ 


2556 


G6 


r424 


7039»0ff* 


021 


88 





2357 




STP 


Cr^PLX 


027 


S9 





2558 




raUN 


LEFT 


021 


90 





2559 


FSUQ2 


CLL 


DFX 


021 


91 


0' 


. 25-60 ■ 




ST^ ■:. 


RUNX 


021 


92' 


"0 " 


' 2561 




BUJ^J ■ 


RUf^: 




93 




2562 




STP 


CMPLX 


021 


9^ 





2563 




BUN 


WMGfCRP 


027 


95 





2564 


f SURX 


8Uf1 


-if- 


027 


98 





.2565 


U5UB 


STP 


REMX^OP 


0?7 


99 





2566 




RUN 


REM»PR5B 


028 


00 





2.567 


68 


F424 


1053fO»* 


ozn 


03 





■ 256a 


PRSB 


LOB 


PRSBX 


om 


04 





2569 




DUB - 


9996* 44 »b 


02« 


05 





2570 




CAD - 





02$ 


06 


c 


2571 




STP 


CMPLX 


028 


07 





2572 




BUN 


WMGl 


028 


08 





257? 


NULSB 


LDB 


MODF 


OZB 


09 





25-74 




IFL - 


0f22»l 


0^8 


10 





2575 




STP 


StMlX 


02B 


n 





2576 




RUN 


SFMIC 


028 


12 





25 77 




LDB 


MODF 


02« 


13 





2578 




OFL - 


• 22.» 1 


028 


14 





25 79 


PR5BX 


BUN 


jr. 


G2S 


15 





2580 


USU3X 


OEFN 


PRS9X 


28 


16 


c 


2530 


NULSX 


DFFN 


PRSBX 


028 


19 





2580 


CLOT 


STP 


RFf^'X^TEHPS 


028 


20 





2581 




BUN 


REM>OLDT 


028 


21 





2582 


*A 


STP 


RFiMXfSAVET 


028 


22 


'^ 
u 


2583 




BUN 


REM#*+2 


ozs 


23 





' 2594 


G7 


F424 


1 565*0 t^'- 


28 


24 





2585 




SRA 


4 


028 


25 





2586 




STA 


TEMPS »C4 


0-28 


26 





2587 




BUN 


GFNPX 


028 


2<9 





2588 


GETMP 


STP 


REMX•TF^^PS 


0?8 


30 





2589 




RUM 


RFM«ncTMX 


on 


fl 





2590 




CAD 


VARR 


028 


32 





2591 




SLA 


. 4 


026 


33 


. 


2592 




dfl 


VARS»04tl 


o?« 


34 





2593 


GET MX 


8UN 


GET MX 


026 


37 





2594 


XSUb 


STP 


ASMBX 



HJLL LEFT PARENTHESIS 



OilT AMOTur'v nWF nW 



RUH BACK V 



THROW AWAY TOP OF STACK f SUBST I TUTE CRH 



PRSB SENDS SPfCIFiED OPERATOR TO COMPILER. 

AMD THEN nOFS NULSB 

NULS3 IG A SEMICOLON WHICH PROTECTS 
THE MODE STACK 



THROW OUT ALL TEMP STORAGES 
CURRENTLY BE TNG USED* THFY CANT 
3E USED ANY MORE 

REINSTATE OLD SET 



SET AN' AVAILABLE TEMP STORAGE CELL 

FITHE^< FROM TEMPS STACK 

OR A NEW ONE»IF THAT STACK HAS BEEN 

CLEANED OUT. 



COMMON PART OF BEGINNING OF PROCtOU^E 



028 38 


C 


2595 


BUN 


ASMBLfBUNFR 


0?8 39 


, 


2596 


STP 


tnSK*rUNS 


028 40 





,2597 


RUN 


INS2 


028 41 





259^ 


STP 


newtx»savet 


02S ^^ 





2*5<^9 


nm 


NEWT 


028 43 


Q 


26 00 


SIP 


EXCTR 


02§ 44 





2601 


BUN 


SCAN 


028 45 





260 2 


CT A 


TQP 


028 46 





2603 


GTP 


CMPLX 


OM -4T- 





2'6^4 


B^n - 


■V/M-6-»€PP 


om 4a 


^0 


26G5 


!FL 


PARSWfOO»l 


OiB 49 


D 


2606 


irL '■■ 


KCfOOfl 


028 50 





2607 


STP 


CMPLX 


02^ 31 





-.2:608 


BUN 


L£FT 


028 ,52 





2609 


STP 


CMPLX 


02B 53 





2610 


B^H 


WMGfCRQ 


c;>8 ^4 





2611 


CM)' 


VAI^B' 


0^8 55 





2612 


SRT 


4 


026 56 





2613 


STR 


N0PAV»44 


028 57 





2614 


STP 


asmbx 


028 9a 





2615 


BUN 


AS.^BL»NOPAV 


028 59 





2616 


TFL 


PHItOO»l 


02« 60 


G 


2617 


DLB 


t#&4»0 


028 61 





2618 


CAO 


KC 


028 62 





2619 


STA - 


0*04 ■ 


C28 63 





2620 


DFL - 


0f82*l 


028 64 





2621 


XSUBX BUN 


■i? 


028 67 





2622 


ysubi lde. 


KAPPA 


026 68 





2623 


CLL 


KAPPA 


028 6^ 





2624 


DSB 


A + • 1 


0?S 70 


A 


2625 


LDB 


FU?«S 


028 71 





2626 


CAD - 





028 72 





2627 


BSA 


A^#l 


0'2S 7a 





2 625 


YSUB2 OLR 


L »64»00 


028 74 





2629 


IFL- 


0#12»10 


28 75 


b 


263" 


LDB 


FUfMS 


0^8 76 





2631 


CAD - 





028 77 





2632 


9SA 


* + 2>3 


0^8 7S 


Q 


2S33 


8UN 


* + 2 


028 79 


. 


263^ 


IFL 


TAG»00f I 


028 80 





263 5 


SRA 


4 


028 81 





2636 


LSA 


■ i 


026 82 





2637 


STP 


INSXjPARnF 


026 83 





2638 


RUN 


INS 


028 84 


c 


2639 


CAO - 





028 B'^ 





2640 


SUA 


i 


02B .^6 





2641 


STA - 





028 87 





2642 


pprsw F4241 


12l0iQl#0 


028 m 





2643 


4fA STP 


REHXfOPRND 


028 89 





2644 


hUH 


REM»*+2 


028 90 





2645 


FUR HLT 


4 


028 91 





2646 


SRA 


4 


028 92 


vO 


2647 


STA 


^+3,04 



AND FU/KTION DFCLARATTONS 

FIftST COMPILE FORWARD R£FERENce AROUND 

PUT LGCN ONTO fUN-STACK • 

STASH AWAY CURRENT SET OF TEMP STORAGE 

GET NAME OF PROCEDURE FROM SCANNER 

COMPILE CIKCLE-P OPERATOR , 



AND A LEFT PARENTHESIS 
AND A CtRCLE Q 



ASSE.M9LE 

(LOC OF PARAMETER 1 3 NOP OOOO 



RECORD iMUMBHR OF THIS PROCEOURF 



COLLECTING PARAMETERS 

HAVE EMPTY SUBSCRIPTS APf>EARED 
OR 00 WE HAVE A CALL BY VALUE . 



JF NOT* 

MARK PARAMETER AS CALL 3Y NAME 



PUT Tag ON AFTER 2N0 SEMICOLON 



PUT CALL FY H^y^E -ARAMFTFRS ONTO 
PAf.FF STACK. WE WILL USE TrUS 

LATER TO FIX U^ REFERENCES TO THEM 
SHIFT LINK FIELD RROUND ( SHRF^^D MOVE) 
IN PAREf LI^K FIELD IS 64-FIELD 



ASSIGN PARAMETER LOCATION 



0?6 93 





2648 




CAO 


VARB 


028 94 





2649 




SLA 


4 


02,t 95 





2650 




STA 


^•64 


0^8 96 





■ 2651 




DLB 


TOP»64»0 


028 97 


•J 


2652 




DFL 


- 0«32»^^ 


026 98 





26 3 3 




L>FL 


VARR»C4f 1 


<^2B 99 





265^ 




LOe 


"FUN.S 


29 00 





2655 




IFL 


-. t 2 2 » 1 


29 01 





2656 


YSUBX 


BUN 


* 



keep count. of num3er of 
para-ieters for future checking 

KEEP COUNT Of ^^UMr3FR OF 



029 06i 


2657 


C^PL 


Bf A 


VRBL»01#0 


029 or 


2658 




BFA 


WMGl»Clfl 


029 08 


265^ 




BFA 


LEFT* 01* 2 


29 09 


■2660 


risht 


5TP 


REMX»0O 


029 10 


2661 




BUN 


REM#F+ 


029 11 


2662 




STP 


V/EMX 


029 12 


^663 




BUN 


WEMtLEFT 


079 13 


266^ 




CNST 


34652 540000 


029 14 


2665 


-5^F 


CFA 


LPAR»67 


029 15 


2666 




BCE 


e+ 


029 16 


2667 




3TP 


""ge?«rx 


029 17 


2668 




BUM 


GENR 


029 18 


2669 




BUiN 


RIGHT 


029 19 


2670 


"^ e 


STP 


DECNX 


029 20 


2671 




BUN 


DECN 


029 2X--0 


2672 


CMPtX 


BU^J 


jf 


029 22: 


2673 


VRBLl 


5TA 


PAR 


029 23 


2674 


VR3L 


STP 


IMSXtOPRMD 


039 24 


2675 




BUN 


IMS 


029 25 


2676 




BUN 


CMPLX 


029 26 


2677 


LEFT 


LDB 


PR! 


029 27^ 


2678 




CLL 


PHI 


029 28 


2679 




Dee 


CMPLX »1 


029 29 


2680 




LDB 


MODE 


29 30^0 


2681 




IFL - 0»22»1 


029 31 ^ 


2682 


FORTY 


CLA 


40 


029 32 


2633 




3UN 


A+ 


029 33 


2684 


mo 


LDB 


CMPLX 


029 34 


2685 




DLB - 9999 » 44 ♦O 


29 35 


2686 




CAD -• 


029 36 


2687 


WWGl 


LDB 


OP 


029 37 


2688 




LOR ■ 


- 


029 38 


2689 




&FR 


A+#66tC 


029 39 


2690 




STA 


SAVOP 


0?9 40 


2691 




CFA - 


- Of22 


029 41 


2692 




BCH 


A + 


029 42 


2693 




BCL 


B+ 


029 43 


2694 




BSA 


*-+2tO 


029 44 


2695 




BUN 


A+ 


29 45 


2696 




BFA 


*+2»31»0 


029 46 


2697 




BUN 


A + 


029 47 


2698 




LDB 


OPftND 


029 48 


2699 




LDR - 





THIS HERE 15 THE COMPILER 

CHECK KIND Of QUANTITY,* 

OPFRAND»OPFRATORfLEFT PARENf OH RIGHT PAR 
PROCESS RIGHT "ARE^JTHESI S» • 



(EXTRA RIGHT PAREf^THESIS) 

DO ALL operation:. OUTSTANDING SIMCE 

LAST ' LEf^T G^-r^^j^^ypcT 3, 



CHAf^GE PARENTHESIS COUNT 
ON THIS MODE 



PROCESS OPERANDi» 
SIMPLY PUT IT ON OPinj\-^^ STACK 

PROCESS LEFT PARENThES! S . ♦ 

EXIT* IF EXPECTLNG A LEFT PARENTHESIS 

INCREASE PARENTHESfS COUNT Oh THIS MODE 

AND INSERT LEFT PARENTHESIS IN OP STACK 

PROCESS OPERATOR^* 



IF TOP OF OPERATOR STACK IS A LEFT 

PA REN* THESIS* 
OR HIERARCHY OF NEW OP IS HIGHER THAN 
THAT OF THE TOP OF THE OP STACK* 
I^ERELY PLACE NEIi/ OP ONTO THE STACK* 

ON EQUAL HIERARCHY DO THE SAWE 
EXCEPT OH ORDINARY BI.NARY OPERATIONS 

FOR THESE* CHECK IF EITHER THE 

LAST OR THE SECOND-LAST OPERAND IS IN 



029 49 





2700, 




BFR 


8+*ll»0 


029 50 





2701 




LDB - 





029 31 





2702 




LDR ^ 





0^9 52 





2703 




BFR 


B+fll»C 


029 53 





2704 


*A 


STP 


INSX*0P 


029 5h 





2705 




BUM 


INS 


029 55 


G 


2706 


«C 


BUN 


CMPLX 









' *R 


STP 


ppwX ?0P 


029 57 


Q 


2705 




BUN 


RFM»«+2 


029 5$ 





2709 


..MPCN 


NOP 


0: 


029 59 





2710 




STP 


GFHRX 


029 60 





2711 




BUM 


GE.«IP 


29 61 





2712 




CAD 


SAVOP 


029 62 





2713 




BUN 


WMGl 


029 65 





2714 


ASMBL 


■ LDB 


ASMBX 


029 66 





2715 




DLB - 


9 999, 44 #0 


029. §7 





2716 


A sm I 


CAD - 





029 66 





2717 


ASMBV 


CLL 


INSTR 


029 69 





2718 




CLL 


INSTP 


029 70 


0. 


2714 




STA, 


|NSTR*OC 


029. ?1 





• 2720 




SlK: 


INST Pf 00 


029, 72 





2721 




STA 


6 


29 73 





2 722 




LDR 


XI 


029 74 





2723' 




bzr 


A + 


029 lb 





?724 




CLL 


XI 


029 76 





2725 




BFA 


B+»62»40 


•-•£9 / i 


(^ 








iT- !~» t- T /^. n -^ 


029 78 





2727 




BCU 


A + 


029 79 





2723 




DFL 


LOCN»64»l 


029 SO 





2729 




BUN 


ASMPX 


029 81 





2730 


*B 


DFL 


L0CNt64t! 


029 82 





27:^1 




IFL 


!NSTR^i^l,l 


029 S3 





2732 




IFL 


!NSTPf4l#l 


029 84 


..0 ,. . 


2733 


«A 


CFA 


+9999999999 


2,9 S5 





2734 




RCH 


C + 


029 S6 





2735 




LOB 


INSTP 


029 87 





?736 




LDR ~ 


V 


029 88 





2737 




BFR 


D^f li »5 


029 B9 





2753 


^-E 


STP 


lasmx 


029 90 





2739 




BUf4 


LASMB 


29 91 





274 




9U^4 


ASMBX 


029 92 





2741 


*D 


DLB * 


V#64#0 


029 93 





2742 




LDR - 





029 94 





2743 




STA 


GP 


029 95 





2744 




BFR 


F+»n*7 


029 96 





274 5 




BFR 


F-»11^5 


029 <57 





2746 




!FL - 


0»llfl 


029 98 





2 747 




STB 


TEMP 


029 99 





2748 




LDB - 





030 00 





274^ 




CAO - 





030 01 




2750 




t>L3 * 


f 64 » 


'^30 C2 




2751 




LDR - 





030 03 





2752 




BFA 


0+f 11»3 



THE ACCUMULATOPf AND IF SO 
PERFORM THE OPERATION n-i?«:ED I ATELY 



tk; thf case of lov^fr hierarchy 

p-:XtCUTE THE LAST OPERATOR 



GO TO- ITS GENFRATOR 



AND RECYGLt 



THE ASSEMBLER* 



OMIT SLTIC INSTRUCTION* If ST.a OR SRTlO 
FOLLOWS , 



(CHANGE STA TO 5TR) 



ASSFMRLF WITH V{ I) T-p THE 
SIv-^Ni !S 0>1*2* OR 3 

IN ORDINARY CASES* GO TO THE 
LITTLE ASSEMBLER* 

WHOOPS* ITS AN ARRAY ^iAME# 

WE PROBABLY HAVE TO GET ' ITS INDEX 

IN REGISTER B 

IF THE ARRAY HAS AL.READY BEEN INDEXED* 

SKIP THIS PHASE* IF THE SUBSCRIPT IS 

CONSTANTfGO TO LITTlE ASSEMBLER 

GET THE SUBSCRIPT .VALUE 

IT CANT.BF AN ACCUy.ULATOR SYMBOL 



IS IT A TEMP STORAGE 



030 04 





2753 




BFR 


Q+fli»6 


030 05 





2754 




SIP 


ASS NX 


030 06 





?755 




BUN 


ASSN 


D5G 07 





2756 




CFA 


DEX»67 


030 08 





2757 




STA 


DEX*67 


030 09 





2758 




BCU 


G+ 


030 10 





2159 




I.DB 


TfMD 


030 11 





2760 




STP 


REMX 


030 12 





2761 




BUM 


RE''«^1>F+ 


Q30 13 





2762 


'G99 


F424 


9 62 9* 0*0 


030 14 





276*5 


^Q 


CtL 


DEX 


030 15 





2764 


*G 


LDB 


TEMP 


030 U 





2763 




STP 


RTMX 


030 17 





2766 




RUN 


RFMl»^f■+2 


030 18 





2767 




BUN 


H4- 


030 19 





2768 




STP 


INSXfXVP 


030 20 





2769 




RUM 


INS 


030 21 





2770 




DLB - 


0»64»n 


030 22 





2771 




BFA 


H*»ll»3 


030 23 





2772 




CAD - 





030 24 





2773 




BFA 


RFMI>11*6 


030 25 





2774 


-5^-H 


CAD 


LDBV9 


030 26 





2775 


^•H 


STA 


INSTR 


030 27 





2776 




CLL 


G 


030 T8 





2777 




STP 


remx»xvp 


030 ?^ 





2778 




BUN 


REM, It 


030 30 





2779 


*F 


CAP 


INSTP 


0^0 31 





2780 




LSA 


1 


030 32 





2781 




STA 


INSTP 


030 33 





2782 




LDR 


QP 


030 34 





2783 




STR 


G 


030 33 





2784 




BUN 


E- 


030 36 





2785 


*I 


STA 


V9 


030 37 





2786 




STP 


LASMX 


030 38 





2787 




RUN 


LASMR 


030 39 





2788 




csu 


LDPV9 


030 4^ 





27^-9 




BUM 


H- 


030 41 


V 


2790 


-C 


SSA ^ 


G4P»4 


030 42 





2791 




bsa 


^G6P*6 


030 43 





2792 




BSA 


G7P»7 


030 ^4 





2793 




BSA 


G8P»8 


030 45 





2794 




IFL 


INSTR»12»10 


30 46 





2795 




BSA 


G8P»9 


030 47 





2796 


GEXIT 


STP 


WRlTX 


030 48 





2797 




BUN 


I^RIT2 


030 4<> 





2798 


ASMRX 


BUN 


K 


030 30 





2799 


64^ 


LDR 


INSTR 


030 51 





2800 




CFR 


SLT10»07 


030 5? 




2B01 




BCU 


GFXTT 


030 53 





2802 




IFL 


XI»00»1 


030 S4 





2803 




BUM 


GFXTT 


030 55 





2804 


G6P 


CAD 


LOCN 


0?0 56 





2805 




SRA 


4 


030 57 





2806 




ADA 


INSTR 


030 58 





2807 




STA 


INSTR»04 


030 59 





2808 




BUN 


v.! C. '^ i ' 



IS IT AHOTHER ARRAY 

OTHK?^*-^!^F PREPARF A PLACF fOR IT,|M 

!F IT HASNT YET ^tEH ASSIGNED 

IS THE INDEX-.Ifi THE B REGISTER 



SET caWTENTS or REGISTER 8 TO UNKNOWN 

hepes a tricky Part* 
put thf subseript onto the xvp stack 
if it is another array which must re 
callen»keep this up until we get 

TO A NOf^-ARRAY, 



COMPILE A SERIES OF LD3 S 

UNTIL THE INDEX IS FINALLY IN REGISTER B 



THE INSTRUCTION IS TO BE B-MODTFIED 



GO TO THE LITTLE ASSP^^BLpR 



TlBSOLUTE MACHINE ADDRESS 

ADDRESS RELATIVE TO THIS LOCATION 

ADDRESS TO BE BLANKED OUT 

FORWARD REFERENCE ADORESS 

(B-MODIFICATION ON SIGNS OF 5 Of? 9 J 

a-MODIFIED f^GRWARD REFEREi^CF 



SET ELAG IF THIS IS SLTIO INSTRUCTION 



30 60 


2809 


G8P 


CAD 


LOCN 


030 61 


2810 




L5A 


4 


30 62 


?811 




LDR 


PS! 


30 63 


2B12 




BZP- 


^+2 


030 64 


2813 




LSA . 


-? 

< 


030 65 


28 14 




0L8 


0P»44 »0 


030 66 


2815 




LDR 


PI 


w ji w if f ^ 


«c tf' i v> 




32R 


^^2 


030 68 


2817 




Due 


c-XFC»44>0 


030 6^ 


281S 




S"f"P 


IHSX 


030 70 


?819 




BUN 


INSl 


030 71 


2820 


Ql? 


IFL 


WRTSW.»4i»4 


030 7? 


2821 




BUN 


GEXIT 


030 75 


2822 


LASMR 


LOB 


INSTR 


030 76 


2823 




LDR - 


V 


030 7T 


2824 




0L6 - 


V*64>0 


030 T8 


2825 




CAO - 





030 79 


2Bt6 




STA 


VI MAG 


030 80 


2827 




BFR 


T3*li*3 


03O 81 


2828 




BFR 


T 1 » 1 1 • 1 


030 82 


2829 




BFR 


T2*ll»2 


030 83 


2830 




BFR 


T4»ll>4 


030 8A 


2.831 




BFR 


T5»11.5 


030 8*5 


2832 




BFR 


T4»ll9S 


030 86 


2833 


T9 


LDR - 


1 


C30 67 


2834 




BFR. 


* + 2» 11 »■''' 


030 8« 


2835 




STR 


EXPtN 


O3O !HJ 


2836 




STP 


INSX 


030 90 


2837 




RFA 


H+»64 9O 


030 91 


2838 




BUN 


T4 . 


030-92 


2839 


Tl 


BSA 


TA+1»8 


030 93 


2840 




LDR - 


1 


030 ^ 


2641 




BUN 


*+2 


030 95 


2842 


T2 


LDR 


DICT+33 


030 9t 


2643 




SIR 


EXPLN 


030 97 


2344 




STP 


ASSNX 


030 98 


2845 




BFA 


ASSN1»64»0 


03O 99 


2846 




RUN 


T44-1 


031 00 


2847 


T3 


CLL 


VI MAG 


031 01 


2846 




STR 


V'lMArnfOO 


031 02 


2849 




CAD 


G 


031 03 


2850 




BSA 


LASMX#3 


031 04 


2851 




BSA 


T4-2»l 


031 05 


2852 




SLT 


10 


031 06 


2853 




STP 


iHSXf ^^hp::. 


031 07 


28 5i* 




BUN 


INS 


031 08 


2855 




CAD 


TCONS 


031 09 


2856 




STA 


EXPLN 


031 lO 


2B57 


T4 


CAO 


VIMAG 


031 11 


2858 




SRA 


4 


031 1? 


2859 




STA 


|NSTR#04 


031 13 


2860 




STP 


INSX 


031 14 


2861 




BSA 


H+f9 



INCREMENTED FORWARD REFERENCE 

PUT FORWARD REFERENCE OPERATOR 

(THF STP •BUM S OF FOR) Of^fTO EXEC-STACK 



LITTLE ASSEMBLER. 

ASSEMBLE AN OPERA^JD FOI^ ME 

WHAT KIMD OF AN OPERAND' 
;^ TEMP STORAGE 
A SIMPLE VARIABLE 

...A. ,co^is.T.ANI,„:,., 

: A LIBRARY»FXTERNAI PROCEDURE 
AN ARRAY 
A PRCCEDURE OR FUNCTION 



A LABEL 

IF JT HASNT BEE^'J DEFINED YET» 
RECORD PLACE FOR FORWARD REFERENCE 
IS IT A OI/MF-NSION PARAMETER 



ASSIGN PLACE EOR VARIAP.LF OR C0NSTA^4T 
IF NOT THERE ALREADY 



FREE ^'P TEMP STORAGE CELL FOR 
FUTURE USE UNLESS G j^ 1 OR 3 



INSERT N^W ADDRESS INTO INSTRUCTION 



EXTERNAL THINGtlNSERT FORWARD REFERENCE 



031 15 


28 6? 


«-r 


AOD 


XZERO-fl 


031 U 


2863 




BSA 


B+f 1 


031 17 


2864 




CAO 


G 


031 16 


286? 




BSA 


LA5MX*i» 


031 19 


2866 


#G 


STP 


WRITX 


G31 20 


2867 




BiiH 


WRIT2 


031 21 


286B 




CLL 


EXPLN 


031 22 


2869 


LASHX 


BUN 


^ 


031 23 0. 


2870 


*B 


PXT 


SXO 


Cf31"24 


2871 




SUB 


PRSf-p 


031 25 


2872 




SLA 


8 


031 26 


2873 




LDB 


PAREf 


031 27 


2874 


^E 


CFA - 


0»22 


031 28 


2873 




RCE 


H4- 


031 2^ 


2876 




OLB - 


C#64>0 


031 30' 


2877 




BUN 


£"• 


031 31 Q 


28 78 


T5 


LDR 


G 


031 32 


26 79 




RFR 


T4»12»10 


031 33 


288 C 




SFR 


T4#12»30 


031 34 


2881 




CAD 


AVAIL 


031 35 


2882 




STB 


AVAIL 


031 36 


2B83 




ST A - 


0*04 


031 37 


2884 




LDB 


VI MAO 


031 38 


2885 




CAO * 


1 


031 39 


2886 




BUN 


T^-1 


031 <^0 


2887 


*H 


CAA 


pfjtr 


031 41 


28B8 




SLA 


4 


031 42 


2669 




EXT 


(»TaF,0-».5 


031 43 


2690 




AOD 


L0CN 


031 44 


2891 




PUW 


INSl 


OSl 45 


2892 


ICONS 


CNST 


5 TEMPS 



G-3 MEANS THIS IS ONLY AN INDEX PSEUOO^OP 



CHECK IF THIS ADDRESS IS A 

NAM£ PARAMETER- WHXCH MUST BE FIXED 

UP AT RUNNING TIME 



ARr?A^ - IF 6 NEO. 1 OR 3 . . 
RETURN THE INCREMEI^T WORD TO 

AVAILABLE STORAGE* WE ARE DONE '^'Hh iT 



031 49 
031 50 0' 
031 51 
031 52 
031 53 
031 54 
031 55 
031 56 
031 57 
031 5a 
031 59 
031 60 
031 61 
031 62 
031 63 
031 64 D 
031 65 
031 66 
031 67 
031 68 
3 1 59 
031 70 C 



26^3 


WRIT2 


CAD 


LOCN 


2694 




SRA 


4 


2895 




IFL 


L0CN»64»1 


2896 




LDR 


JNSTR 


2897 


V^RIT3 


STa 


WRTF»Oi. 


2S98 




SUB 


PREV 


2899 




LDB 


C.NTRI 


290G 




PFA 


=^ + ♦04*0 


2901 




SUB 


XONF-M 


2902 




RFA 


F+»04»0 


2903 




STB 


LRTFf04 


2904 




CAL 


WRTp 


2905 




STA. 


- euF+i 


2906 




IFL 


CNTPI ♦OC/1 


2907 


#F 


LDB 


LRTF 


2908 




IFL 


- BUF+1»32»1 


2909 


WRIT7 


IFL 


CNTRJ .00»1 


2910 




LDB 


CNTRI 


2911 


*E 


STR 


- 8UF 


2912 




STR 


DESCR 


70 13 




BCS 


♦ + ? ♦ 2 


2914 




BUN 


-+2 



WRITF SUBROUTINE -PUTS INSTRUCTION 

INTO OUTPUT BUFFER* 
lvRlT2 ENTRY • PUT INSTRUCTION OUT FOR 

LOCATION LOCN AND INCREMENT LOCN 
WRIT3 rNTRY - LOCATION IS IN R.A(04) 
AND If-^STRUCTION IS IN REGISTER R 



DOES This location equal tiaf previous one 

(IF SO WE ^ILL ERASE THE PREVIOUS ONE > 

OR IS IT ONE HIGHER 

IF NOT»V/E WILL PUT OUT A NEW RECORD TRANS 



THE 32'-FIFLD CONTAINS THE NUMBER OF 

SPOUE'^^'IAL WORDS TO LOAD 



031 


n 





29 IS 


WRTSW 


rWR 


4 FXPLNtl? 


031 


12 





2916 




STB 


*-l»41 


031 


73 


d' 


2917 




LDR 


WRTF 


031 


74 


■0,- 


2918 




STR 


PREV»04 


031 


75 





2919 


WRIT6 


LOR 


CNTRI 


031 


76 





2920 




CFR 


Cr4TRF 


031 


77 





2921 




BCL 


WRITX 


031 


78 





29?2 


WRTT5 


LBC 


HH 


031 


79 





2923 


*C 


CLA 


BUF+2 


031. 


80 





2924 




SUB 


- 8UF'f99 ■. 


031 


tl 





2^25 




188 


■ *-lfl 


03! 


82 





2926 




BOF 


*+l 


031 


m 





2927 




STA 


BUF-f99 


031 


84 





2928 




MOW 


4 PU?="9 0T»1 


031 


S5 





2929 




IFL 


PUF»00»1 


031 


86 





2930 




CLL 


CNTRI 


031 


87 





2931 




CLL 


CNTRF 


031 


88 


•■ 


2932 




IFL 


CNTRF»00>96 


031 


89 





29 33 


WRIT4 


CLL 


BUF+1 


031 


90 





2934 




LDB 


C** 


031 


91 





2935 




RTF 


RUF'H»98 


031 


92 





2936 


WRITX 


BUN 


-X- 



IF °CS(2? "PUBLISH THIS Of4 407 



JlS THE. BUFFER FULL NOW 
^IF NOTtEXft 

IP RCii r&! riJi fiTF rt-Mrrk- <;flM' 



WRITE ONE BLOCK 
INITIALIZE FOR NEXT BLOCK 



031 


96 


2937 


GENXK 


STB 


Vl*12 


031 


97 G 


293S 


GENXV 


CAO 


VI 


031 


98 


2939 


GENXX 


STP 


!NSX»aPRNi 


031 


99 


2940 




BUN 


INS 


032 


00 


29*-! 




LDB 


OPRNO 


032 


01 


2942 




LOR 


- 


0312 


02 


2943 




BFR 


A-*-tll>0 


032 


03 


2944 




BUf4 


. GFNRX 


032 


04 


^2945 


*A 


STB 


SER 


032 


05 


2946 


GFNRX 


BUN 


•S 


032 


06 


2947 




CAD 


RUH2 


032 


07 


2948 


GFNXY 


STP 


ASMBX 


03? 


08 


2949 




BUN 


ASf-^3Y 


032 


09 


2950 




BUN 


GEMRX 


032 


12 


2951 


GENR 


STA 


OPRTN 


032 


13 C 


?952 




BSA 


GEN2>2 


032 


14 


2953 




BSA 


6EN3 9 3 


032 


15 


2954 




BSA 


GFWRF»4 


03? 


l€ 


2955 




BSA 


GBWRF»5 


052 


17 


29 S6 




BSA 


GFWRF«7 


032 


IB 


2957 




STP 


0«T,NiX 


032 


19 


2956 




BUN 


OBTNt 


032 


20 


2959 




STP 


OBTNX 


032 


21 


2960 




BUN 


0BT(\'2 


032 


22 


2961 




CAO 


OPRTN 


032 


23 


2962 




BSA 


GFN3>1 


032 


24 


2963 




BSA 


GRELN»8 


032 


25 


2964 




BFA 


A+»64»0 



MARK Vl AS IN A-REGISTER 
K'l = RESULT 

PUT RESULT OF SCNE GE'^ERaTED QUANTITY 
IN OPERAMQ STACK AND RECORD IN 
S£R THE POSITION WHERE STORED 
IF IT IS ^H ACCUMULATOR SYMBOL* 

(HINT»45ER IS USED TO' CONTROL PLACEMENT 
INTO TEN*P STORAGE) 



ASSEMBLE FINAL INSTRUCTION AND EXIT, 



GENERATORS* BR A.NCH ACCORD I (%G TO KIHX) OF OP 
UNARY OP 
NULLARY OP 

FORV/ARD REFERENCE 

BACKWARD REFERENCE 

INCREf^E^iTFD FORWARD REFERENCE 
IbINaRY OP 
'get VI OPERAND 

GET V2 OPERAND 

SPECIAL BINARY OP 
RELATIONAL OP 



032 


26 





032 


27 





032 


28 





032 


2^ 





■032^ 


30 





^32 


31 





032 


32 





Ds? 


33 





032 


34 





032 


3B 





032 


^6 





032 


:^7 





032 


1^8 





032 


39 





032 


40 





tl32 


41 





032 


42 





032 


43 





032 


44 





6S2 


45 





032 


46 





032 


47 





032 


48 





032 


49 





032v 


50 





^032' 


n 





032 


52 





032 


53 





rti** 


54 


n 


» .^f £.. 


*'.'■ 


032 


55 





032 


^6 





032 


57 





032 


58 





032 


59 





032 


60 





032 


61 





032 


6? 





032 


63 






2965 
2966 
2967 
2968 

2969 
2970 
2971 
2972 
2973. 
..2974 
2975 
2976 
2977 
29 78 
2979 
2980 
2981 
2982 
2983 
29^84 
2965 
29S6 
2987 
298?? 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 



6ENAG 



^B^ 



^E^?DX 



GeNX2 



GEN2 
GEN3 



TF5T 



STP 


arthx 


BUM 


arthg 


CAD 


ACCOM 


BUN 


GENXX 


LDB 


MODE 


CAD - 





CFA 


TEST^67 


BCU 


OFNAO 


CAD 


VI 


afA 


Q^922s2l 


LDR 


V2 


BFR 


*+2f22»21 


BUN 


GENAG 


3TR 


VI 


ST A 


V2 


SLT 


10 


DL8 


VU64»0 


LOR- * 


1: 


SRT 





CFR 


XONE+1 


BGH 


GEMAa 


LDB 


ARAS 


DLe - 


0»6-«i»0 


5RT 


' 


CLA 




ADO - 


G 


BSA 


GFNAG>1 


SLT 


10 


Cf A 




ADA - 





5TA - 


0#64 


CAD 


V2 


BUN 


GENXX 


STP 


03TNX 


BUN 


OB TNI 
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^k'^JE '^EF'--^ STORED C)UT 
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IF WE ARE SETTING SOMETHING TO A 
N0N2FR0 CONSTANT t 



MATCH THE TYPrS 



SOMETHING = 

SEVERAL CASES TO CONSIDER 

CLA, CLL V2 IK' POR STaTE^FNT 
CLA V\ PROCEDURE OR RU\CTI0N CASE 
CLL V2 OTHERi^ISE 

jMPROPER ASSIGNMENT STATr^VRNT 



035 57 3266 GCRC STP PMTRX 

035 ^j% 3267 RUN PMTR ASSEMBLE THE PARAMETER-OBTAINING INSTRUC 



035 


59 





3 2 68 


LDB 


OPRND 


035 


60 





3?69 


CAD - 


r\ 


035 


61 





3270 


CFA 


DFX#67 


035 


62 





3?7I 


BCF 


A+ 


035 


63 


n 


3212 


STA 


D^X 


035 


64 





3?73 


STA 


V2 


35 


65 





3?74 . 


STP 


ASM8X 


035 


66 





3775 


BUN 


ASMBL»DLBV? 


035 


67 


^--s 


3 2 76 >-A LDf^ 


^\ms 


C35 


68 


,0 


327 7 


,, CAD - 


Q 


S35 


69 


n 


32 76 


B5A 


* + 2 > 3 


035 


70 





3279 


B'JN 


^■+2 


0^5 


71 





3280 


IFL 


TAG^OOf I 


35 


72 





3281 


<=RA 


8 


035 


73 





3282 


LSA 





035 


74 





3283 


SUA 


GTABO 


035 


75 





32 34 


STA 


STAAB»04 


035 


76 


;"| 


328^ 


IFL - 


0#27f 1 


035 


77 




3286 


CAT 


STAAB 


035 


78 





3287 


RUN 


GFNXY 


035 


a I 





328B GCP.n STP 


TSTOX 


35 


82 


n 


3289 


RUM 


T STOP 


035 


83 





3290 


csu 


V2 


035 


84 





32^-'l 


nCU 


* + 2 


035 


85 


n 


3292 


STA 


V2 


035 


86 





3293 


"XT 


VI 


-7, c; 


87 





329^^ 


BFA 


P" 4-, 2 1 * 


035 


88 




3295 *F LDR 


V 1 


C35 


89 





3296 


CFR 


Vl0#66 


035 


90 





3297 


ecE 


2 + 


035 


91 




3298 -"^F STP 


ACCX 


035 


92 





329*^ 


BFR 


ACClf 11*0 


035 


93 


a 


33 00 -sr STP 


CADX 


035 


M 





3 3 01 


BUN 


CAD2 


35 


95 





33^2 


DLB 


Vl«64»0 


035 


96 





3303 


CSA *- 


I 


35 


97 





3 304 


CLL 


SYM3L 


035 


98 


p, 


3305 


r^z ^ 


F + 


35 


99 




3306 


5RT 


■« 
1 


036 


erg 





3307 


ADL 


cy^BL 


036 


1 





3308 


PFR 


---2»11»0 


036 


2 





3309 


•^LT 


1 


36 


03 





3310 


CFA 


XONF+1^00 


036 


04 





3311 


CAD 


+5B22570000 


036 


05 





3312 


RCU 


GENJ4 


36 


06 





3313 


CLL 


RRO 


036 


07 





3314 


ST^ 


FLTCX 


036 


08 





33l!> 


BUN 


FLTCI 


036 


09 





3316 


STA 


Vlt64 


036 


l-^' 





3317 


CAO 


♦+! 


36 


XI 


3 


3318 


BUM 


GFN4?2800 


036 


12 


<-•. 


331'^ *F ST-'^ 


WENIX 


36 


13 





3320 


BU^i 


WEMiGE'NXX 


036 


X4 





332 1 


CNST 


30113376911 



TION 

PARAMETER LOCATIO^j 

IF NOT* ASSEMBLE A DLB V2>44»0 



fuR-M Tag on -if we have passed the 

2 NO SE?^ I COLON 



v.hAT parameter Mt;M3ER IS THIS 

(FIRST OOCO»ThFN 9999* THEN 9993»ETC.) 



MOD OPf^RATION M0D(V2»V1) 

IF -HOD CHANGE SIGN OF V2. 

CHECK T^-fAT Vl«V2 pOTH INTEGFP 

IF VI IS THE CONSTANT 2 OR -2 WE HAVE 
A SPECIAL CASE 

PUT VI IN MEMCRY 

BRING V2 INTO ACCUMULATOR 

CHECK IF VI IS A CONSTANT tPOWER OF TE:^^ 



IF NOT»GENER^.Tr S'^TlOtDIV Vl» SlT 30 

OTHERWISE GEM -RATE EXTRACT 

KITH TM^ CONSTANT -1 OR -11 OR -I11»FTC. 



IMPROPER ARGUMENT OF MOO FU^KTION 



-36 15 ^ 
036 16 C 
C36 17 

036 18 C 



036 21 



036 


22 





036 


23 





©36 


2h - 





C36 


73 





036 


28 





036 


2^ 





3 36 


3C 


c 


C36 


31 





036 


32 





36 


33 





036 


34 





036 


35 





036 


36 





036 


37 


„0 


036 


38 





C36 


3D 


c 


036 


40 


Q 


036 


41 





036 


42 


("l 


036 


4 3 





036 


44 




036 


45 


•*\ 


036 


46 





036 


47 





036 


48 


c 


036 


51 





036 


52 





036 


53 





036 


54 





036 


«^5 





0-^6 


36 


Q 


36 


57 





36 


58 





036 


59 




036 


60 





036 


61 





036 


62 





036 


63 





36 


64 





036 


65 





036 


66 





036 


67 





036 


68 


'--y 



33 22 


*Z 


5TP 


ACCX 


3323 




6UN 


ACC3 


3324 




CAD 


G99 


3325 




BUN 


GEN4 


3326 


GCRE 


LD3 


LAMOA 


3327 




CLt 


LA^D-'^- 


33 28 




DBB 


GENRX#1 


3329 




€A9 


MOOZ 


3330 




BUM 


GFNXT 


3331 


GCRF 


CLL 


IOTA 


333? 




DLB 


V] »6^»0 


333? 




CSU 


-- 1 


333^ 




WUL 


ARRI 


3335 




5LT 


10 


3336 


■JcB 


LDR 


MULS 


3337 




ADL 


VAR- 


33 3 a 




ST/i 


JFM^ 


3339 


«A 


CAO 


VAR^ 


33 4 C 




ADD 


XONH+1 


3341 




ST.A 


ABASF»04 


334? 




SUR 


ARRL 


3343 




ADA 


GTA90 


3344 




SLA 


4 


3345 




DLB 


V2f 6A tO 


3346 




ST A 


- * 64 


3347 




SIR 


- 0«04 


334B 




CAA 


TfNtP 


3349 




SLA 


4 


33 5 




CLL 


MULS 


3331 




BUN 


LNGTH 


3352 


GCRG 


DLP 


Vl»&4»0 


3353 




CAD 


- 1 


33'J'f* 




MUL 


ARRL 


3355 




SIP 


ARRL 


33 56 




IFL 


ARRL > 00 » I 


3357 




CAD 


- 1 


335e 




MUL 


ARPI 


3359 




5TR 


ARRI 


3360 




CAD 


VI 


3361 




LDP 


B- 


3362 


LNGTH 


LOR 


Vl 


3363 




RF"^ 


A+»22»21 


33 64 




STP 


WFf-'^X 


33 6"=^ 




RUN 


WFN^^GENRX 


3366 




CNSl 


301636^^0000 


3367 


*A 


5T^ 


INSX 


336P. 




RUN 


I N S 1 


3369 




3UN 


GENPX 



IF IT IS MOO 2 » GENERATE 
^SU =1= FXT V2 



EITHER IF FINISHING* 

TF QTHER-'ISF APPEARED* DO NOTHING 

IF f^O OTHERWISE APPEAREDt 

PUT OUT A rJOP rMSTRUClIQN 



FINISH DECLARING SOME ARRAY 

VI IS FIRST D! MENS ION fVZ IS ARRAY NA^^; 



RESERVE SPACE FOR THIS ARRAY 



PUT BEGINNING LOCATIOM IM ABASE 
COMPUTE BASE ADDRESS (MOO lOOOO) 



TO THIS ARRAY NAME 

PUT TOTAL LENGTH CF ARRAV ON TOP 
OF MULTIPLIER LIST 



MIDDLE OF ARRAY DECLARATION 
IF GIVEN ARRAY A(ItU*K»L) 
ARRL IS SET TO ( { J4'l ) K^l ) L-^-1 

ARRI IS SET TO JKL 

ALL DIMENSIONS MUST BE 
FIXED °OINT CONSTANTS 

TMPi^OPFR ARRAY DECLARATION 
U»K»L GO TO MULTJOLIER STACK 



036 71 





3370 


GCRH 


STP 


XSTX 


036 12 





3371 




BUN 


XST 


036 73 





3372 




CAD 


LBCVl 


C36 74 


c 


3373 




BUN 


GFNXY 


^ -■ ■-■ ■ ' 





3374 


GCRI 


CAA 


G3 


036 78 





33 75 




nFL 


UP5LN»62»?Q 


036 79 





337^ 




RUN 


.A.-*- 


036 82 





3377 


GCRJ 


CAD 


VI 


036 83 





33 78 




RFA 


E + ♦ J 1 » 


036 ?A 





3379 




BFA 


F+«ll*2 


036 85 





338 T; 




BSA 


F + »l 


036 86 


[) 


3381 




CAA 


COMMX 


036 87 


v 


3382 




RUN 


A + 


036 ^0 





3^83 


GCPK 


STP 


CAPX 


036 91 


(} 


3584 




RUN 


CADI 


36 92. 





3385 


fi-R 


CAD 


Gin 


C36 9'r* 





3386 


J A 


LDR 


I OPUS 


36 94 





33^"^ 




CLL 


DEX 


036 9b 


("1 


33 8 8 




STP 


BUM! »C4 


036 96 




33BQ 




STR 


rp^T *04 


36 97 


/I 


3 390 




(.DR 


Vi 


■■-- r> o ^ o 


p 


3391 




STR 


L'^RL t 2 1 


036 99 


p 


3392 




STP 


INTRX 


C37 0'-^ 


Q 


339''< 




RUN 


IHTRP 


037 01 





339^^ 




RUN 


GFNRX 


037 D2 





339=^ 


*F 


STP 


WFWX 


037 03 





3396 




RUN 


WE^»P~ 


-37 04 





3397 




CNST 


301706^^-^00 


037 07 





3398 


r>c'^^^ 


PFL 


MU*62»29 


037 C8 





3399 




nUN 


GENRX 


037 11 





3400 


GCRN 


STP 


FIX^X 


037 1? 





3401 




RUN 


- !XFR 


037 13 


Q 


3402 




BFA 


A + »ll V? 


03? 1^ 





3403 




CAA 


6 


037 15 





3404 




nUN 


GFN5 


037 16 


r- 


3^;- 05 


*A 


ST3 


V 1 0. 1 


0-^1 17 





3^-^06 




D'-P 


V]»64»0 


037 18 





3^07 




LDR 


- 1 


037 19 





3406 




SRT 





'■>37 ?0 





3409 




SIT 


14 


037 7A 





3£^10 




FXT 


FX'f^2 


037 22 





34n 




DL3 


V2»64»0C 


037 23 





3412 




Af>A 


- • 


037 7A 


c 


341'* 




STA 


- 0»64 


37 25 


'.J 


3414 




CAA 


G9 



MAKF V'l INTeGRAL»U^ memory 
GENERATE LBC 71 

GEME:RATE L.3A 9»3UN lOPJS 



CHECK FOR VALID INPUT EXPRESSION 



ERII^G EXPRESSION I^:TC A-PEGIS 



GENERATE LD- 



IBB I0PUS»2 



jf^PpjQDcriv iNPyt dFCLA^A"'" ION 



END OF SCOPE OF MONITORED LAREi. 



MAKE SUk^E VI IS INTEGER 

EI The" a constant or tm a registep 

IF MOT A CONSTANT » ADO *+l NOP V? 

11^ A CONSTAN'T* ADD OR SUBTRACT ITS 

VALUE FROM The ASSIGN>^ENT OF V2»M00 10000 



(-11110000) 



r/j^r) ^-^i ^ MOP, V2 



037 


26 





037 


29 





037 


30 


n 


037 


31 





37 


32 





C37 


33 





037 


34 





037 


35 




37 


1 A 





037 


37 





037 


38 





0^7 


39 





037 


40 


•f~ 


37 


41 





037 


^7. 


A 


037 


A3 




37 


4-t 





037 


45 


n 


037 


46 


r. 


37 


kl 





037 


43 




37 


49 





037 


50 





037 


51 





037 


52 





037 


53 


^J 


037 


54 


r\ 


037 


55 




037 


56 





037 


57 





037 


58 





37 


59 





037 


60 





037 


61 





037 


60 





037 


63 





037- 


64 


n 


037 


67 





37 


6B 





037 


AP 





037 


70 


.-) 


037 


71 





037 


72 





C37 


73 





037 


74 





37 


75 





37 


76 




:)37 


77 


'*", 


037 


78 


.*> 


037 


79 






3415 *B BUN GPN5 

3416 GCRO STP PMTRX LAST PARAMETER TO FU*NiCTION JS Vl 

3417 RUN PMTR 

3418 CLL DEX 

3419 STP RFM.X*~U'v!S 

3420 BJN REM»*+2 

342.1- .69 E42..4 Q,.55 3...f..0,.„f^ . 

34 22 ST A BUNV2»22 

3423 . DLB V2»64t0 CHFCK THAT PROPER 

3Zf24 LDR - 1 NUWOf^R OF ARGUMF.^^S 

3425 STR EX^LM HAS APPEARED 

3426 LDR " 

3427 ^FR B-f»12«98 

342 8 .^'LT 6 

342? PFA A4-*S1 »4 

343 CFP BUNV?#?2 

3431 BCE P+ 

3432 BFR F+»22»0 

3433 STP WF^X 

3434 BUN WF»^>^' + 2 

3435 CNST 30113370800 IMPROPER AkGUMEM OF PROCEDUR-:. 

3436 ^B CAD 64 GENERATE ST!^ V2» BUN V2 

3437 STP INTRX 
34 38 BUN IHTRP 

3439 STB V2fll 

3440 CLL TAC^ 
344! RUN GENX? 

3442 *A SLT 2 

3443 BFR P-»21»3 

3444 CFR Vl»21 IF ARGUMENT TO LIRRARY FUNGTlOM 

3445 BCF ^~ - '^ 'A' ?^ V.-' fM -.1 ! f »■' r. » (^Wf^vc^> I i ' • 

3446 DLB T ABSC+82 t 64 *0 

3447 P.FR -'• + .2»21»0 
344^^ Dtp. FTXGM».54f0 
344^ STP LIMKX 
3450 BUN LIMKl 

34 51 BUN n- 

3452 -:^F 8FA orRP^llfO 

3453 STP WFMX 
3^54 SUiN WEMfGCRP 
345=^ OMST 34661000000 

34c^(, ^^Qt^p STP REMX#CPRND KHO OF PROCF">URE OR FUNCTION DECLARATION 

3457 ' BUN REM.E- CHECK FOR EXTRA OP^;kANDS 

3458 -A STP RE^*X»FU^i5 

3450 HUIM r.piV2,x--f2 PUt.-L NAME OF THIS OF"^ -UN-5TAC"< 

346C GIO F424 6273 >0«^ 

^4 61 LDR FJMS^v' 

34^>2 BZR A + 

3463 SRA ^^ 

3464 STa LnRI»4 RfTURf'^J FROM rUKrTlON 



37 


80 


n 


^46^ 




STP 


VSU8X 


037 


Bl 


f) 


34 66 




BUN 


VSUBl 


037 


82 





34 67 


*0 


CLL 


FNSW 


037 


B3 





3463 




BUN 


OLDT 


037 


B4 





3 4 6 ^ 


v-^ 


STP 


REMX»PR3 


037 


85 





3-£^70 




RUM 


pr*'** A- 


C37 


86 





3471 




LD"^ 


RRl 


037 


87 





3472 




SIR 


RR3 


037 


ftf 





34 73 




LOR 


PRl 


0.37 


B9 





34 74 . 




STR 


PR3 


t5-37 


<?e 





3^t7^- 




i.f)R 


CHT3 


037 


91 





34 76 




SIR 


CHI 


C37 


9 2 





3477 




LDR 


PAREF 


037 


93 




3478 




BFR 


H-f>04»00 


37 


94 





34 79 


-^c 


CAD 


PLOC 


37 


QC; 





348"^' 




STP 


FXUH'X 


0^7 


06 





3481 




p.vn 


PXUP 


037 


97 





3482 




. CAD 


FRSTP 


C37 


98 





34 S 3 




SLA 


4 


37 


99 





34 84 




5TA 


IRSTP 


03S 


00 





3A88 


^c 


LDB 


°AREF 


C38 


01 





3486 




IPB 


^ + f 999c; 


o^s 


0? 




348 7 




CAO - 


1 

d. 


038 


03 





34 8 >^ 




■ |C^R 


^f4.V,X 


038 


04 





3489 




ST A 


SETUP 404 


038 


05 





349 




SRA 


4 


03'6 


06 





3491 




LDR 


AVAIL 


038 


07 





3492 




STB 


AVAIL 


^m 


08 





34 Q 3 




SIR - 





35 


'■";9 





3494 




STA 


PARFF»04 


038 


10 





349 5 




RSA 


G+» 1 


038 


11 





3496 




. EXT 


BCUL2 


03B 


12 





3497 




SUB 


IRST:^ 


038 


13 





3498 




STA 


VEF»6m 


038 


l^ 





3499 




STP 


ASM3X 


038 


15 





35 00 




RUW 


ASMRf. »X + 


03« 


16 


r\. 


35 01 


♦G 


SfP 


RFMX» SETUP 


038 


17 





3502 




BUN 


RFM,*+2 


38 


18 





3503 




PUN 


cr«. 


033 


19 





35 04 




SRA 


U 


036 


20 




3505 




STA 


STAI»C4 


038 


21 





33 06 




STP 


asmrX 


38 


22 





^3507 




PUN 


AS^BL iST A! 


038 


?3 





35 OB 




RUN 


G- 


038 


24 





35Q0 


<-f 


CAD 


PLOC 


38 


25 





3510 




SRA 


4 


03B 


26 





3511 




STA 


BUN I fOA 


038 


77 





3512 




t FI- 


PXJHl ♦OA^Ol 


038 


28 





3513 




ST^ 


AS^^p-X 


03S 


29 





351^ 




PUM 


ASMBLlBUNI 


036 


30 





3515 


>'H 


CLl 


LEVEL 


038 


31 





3516 




pUN 


D-- 


038 


32 





3517 


VPE 


F2448 


llfOfC 


038 


33 





35'!8 


^^W 


P?44 


11»VEE#0 


038 


34 


n 


351^' 


^^X 


-424 


0»lCf>— V 



BRING BAC!^ OLO TEMP STORAGE CELLS 

AN" EXIT 

FORgE^" all PREFIXES PEFIiMFD IM ^HIS 

PROCEDURE 

BRING IN OTHERWISE TYPE OF MAIN PROGRAM 
BRING IN PREFIXES OF MAIN PROGRAM 
BRING IN MOM 1 TOR STATUS OF MAIN PROGRAM 



TF PARAHETtRS OF OUTPUT TYPE HAVE 

OCCURRi^n. PIX UP THE INSTRUCTION 

TO r,UN '0 THIS PART OF THE PROCEDURE 



^^^,^^^r, LIST OF R-PFRENCES TO THIS 
PARAI^FTFR. Make it the SETUP STACK 



(THE FIRST PARAMETER MAY ALREADY RE 
IN REGISTER A) 
CAO PARAMETER 



GT'^c-RATE ALL STA — *— ♦04 
FOR THI S PARAMETER 



ASSfMPLF TO RUN TO THE 
BEGINfvlING OF THE PROCEOURE 



Fa i \ f^- A K r t n r. U ■• ■',i.i n ^t >n 'n:. rrtv^-i, 1.. i./'.-is t. 



38 36 

038 39 

038 40 

038 41 

038 4? 

038 43 

C38 44 

■O-^-g 43 0"' 

038 46 
36 47 
038 48 C 
036 ^9 
038 50 
038 51 
038 52 
03B 53 
038 54 
03!^ S5 
038 56 



35 7 
35 ?1 
3522 
3523 
35 24 

3525 

' P if C3 

3527 

3529 
3530 
3531 
35 32 
3533 
3534 
3535 
3536 
3537 
353 3 
35 3'^ 



GCRO 



^-r 



!FL 


PRFSW»62»25 


STP 


YSUBX 


BUN 


YSUBl 


DFL 


i^RF5W.62»25 


CLL 


-^AG 


.''^TA 


V3 


IFL 


V 3 f 1 1 ? 3 


STP 


ASMBX 


■RUN 


A-&MPL f-STATS 


CLL 


PARSW 


LDB 


I^NSW 


DBB 


GENRX«1 


LDR 


OAREF 


PFR 


D+»04*00 


CAD 


LOCN 


STA 


PtOC 


STP 


AS^BX 


RUN 


ASMBLfWUNZ 


IFL 


DFLTA>04»4 



PROCESS L^ST PARAMETER. ^'^A^K T^ 

A"^ I FN AL^^'^i^-'L rt i U!'. ir i !o A v.mi_i_ u 

.'.'E HAVF JUST FINISHED xGOLLEC^T'MG 
FUMCTiON 0^1 PROCEDURE PARAMETERS 



STORE l.-*ST PARAMETER 



EXIT IF A FUNCTION DECLARATION 

TF CALL BY Name. PARAMETERS HAVE 
^pPfr/^p^Ff), ASSEMBLE BUN INSTRUCT ION 
WHICH WILL GO TO THE INITIALIZATION PART 



BUM 



GENRX 



038 5^5 
038 60 
038 6! 
036 6? 
038 63 
038 64 
C38 65 
038 66 
038 67 
038 68 C 
038 69 



3540 GCRR STP XSTX 

3541 BUN XST 

3542 OLR Vlf64»0 

3543 LDR -* 1 

3 54^. HLB V?f64*Ce 

3545 CAO VI 

3546 ^FA GENDX9 22f21 

3547 IFL - 0»I1»1 
-^548 STP INSX 
3549 BV^ INSl 

3 5'=^C BUN GFIMX2 



VI IS LAST ARRAY SUBSCRIPT 
MAKE SURE IT IS FIXED POINT A.'^-^D 
NOT !?»? REGISTER A 
^^^OW COMES VprY TRICKY CODING* 
jp The SUBSCRIPT tS 5 cOhjSTANT? 

QTHERWISE Sf^T IMCR^'-'H'N^ WORD TO A 6 
AMDSET U? A LINK TO Vl 
NOW INC WD/64=BASE ADDR. /04=AAAA 
AAAA/67=V1 /C4= ARRAY INFORMATION 



03S 7? 3551 GCRS STP REMXtFUNS 
03P 73 35 52 RUM REM,OLDT 

03P 74 355" Gil ^424 0313»Ot^<- 



FINISH SUBROUTI^?F DECLARATION* REMOV-: 
LOCiTIC^ FROM EUr^JSt i^EMOVE TEMP STORaG-S. 



038 77 C 

fs-^R 7P 



3554 
3555^! 



GCRT 



CAD 

RU.!M 



BU^IV] 
GENXY 



GENERATE BUN VI 



38 


81 





3556 


038 


82 





3557 


33 


85 





3558 


038 


86 





3559 
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3808 


J 5 


DLP 


V1»64»0C 


3809 




LDR 


V i 


3610 




CAD 


"• 1 


3811 




SLT 





3812 




STA 


Temp 2 


3813 




OLB 


V2#64#0G 


3814 




LDR 


V2 


3815 




CAD 


- 1 


3BI6 




SLT 





3817 




sta 


TFMP 1 


3818 




LDR 


OPRTN 


3819 




CAD 


T 
i 


3820 




CLL 


RRO 


3821 




8FA 


X -^ » 1 1 1 


3B?? 




CAD 


TPN<P1 


3823 




CFR 


PLUS #67 


3824 




8CU 


A + 


3825 




FAD 


TFMP 2 


3826 




BUM 


ART^iR 


3S27 


^A 


CPR 


D0T»67 


3828 




BCU 


B + 


382^ 




FMU 


Jf^P2 


3S30 




RUN 


ARTHB 


3S31 


-B 


CFR 


SOLD f 67 


383? 




BCU 


ARTHA 


3833 


5CNXX 


CLR 




38?4 




FDV 


TEMP2 


3835 




r^.UN 


ARTHB 


3836 


4f X 


IFL 


RROf ?i » 1 


3837 




CAD 


TEMPI 


3838 




CFR 


PLUS f 67 


383f9 




BCU 


A+ 


3840 




ADD 


TEMP2 


3841 




BVH 


arthr 


3842 


-"-A 


CFR 


D0T»67 ^ 


3843 




BCU 


R + 


3844 




MUL 


TEMP 2 


3845 




SLT 


1 o 


3846 




82R 


ARTHB 


3647 




RUN 


V+ 


38^8 


'Hrl^ 


CFR 


SOLD* 67 


3849 




BCU 


ARTHA 


3850 




SRT 


10 


3851 




DIV 


TEMP 2 


3852 


arthb 


80 F 


V4- 


3 8 53 


^^A 


STA 


SYMrL tOO 


38 54 




sta 


ACCUM 


3855 




STP 


NMBRX 


3856 




BUN 


MM BR 


3857 




CAA 


- 



d:? T Mr. \n r \ t m 

l.J ■ '. J. It --^ » ■. J, f V I ■< 



GET CONST/^NTS Vl^V? 



I SPECIFirS WHETHER "LOATINS OR "IXED 



V2 OP VI 



M' j 



:lr»fdv 



ADD 



MUL • SLT 10 



I 



iSRT 10 ♦DIV 



CHECK IF OUT Of-' RANGE 

PUT C0^4PUTED CONSTANT INTO TABLE 



042 24 6 
042 ?5 
042 26 
042 27 

042 28 
042 29 
042 ?i(' 
042 31 
042 32 
042 33 '0 
042 34 
042 35 
042 36 
042 37 
042 38 
042 39 
C42 40 
042 41 
042 42 
042 43 
042 44 
042 45 
042 46 

042 47 

042 48 
042 49 
042 50 
042 51 

042 53 

042 54 
042 53 
042 56 
042 57 
042 58 
042 59 
042 60- 
042 61 
042 62 
042 63 
042 64 
042 65 
042 66 
042 67 
042 68 
042 6<? 
042 70 
042 71 
042 72 
042 73 
04? 74 
042 75 
042 76 
042 77 
042 78 
042 79 



3858 




STA 


AC CUM #00 




3859 




LDR 


L 


AND INTO ACCUM 


3860 




SIR 


ACCUM»64 




3861 




CAD 


iCCU'Vl 




3862 




BUN 


ARTHX 


AND EXIT 


3863 


*V 


STP 


^;rMX 




3864 




BUN 


WEM»A- 




3865 




CN^^T 


33436373800 


CONSTANT OUT OF RANGE* USE -1=^ 


3 866 


J 6 


CAD - 


V 




3867 




DLB - 


V * 64 ? 


V( M ISA CONSTANT* 


3868 




LD^ - 


-)----- 


CHHCKTP IT IS A SPECIAL ONE 


3869 




bzr 


A+ 


IS IT ZERO 


3870 




CFR 


FOMP+1 




3871 




BCF 


D + 


IS IT U 


3872 


*0 


CAB 






38 73 




DBB 


1 9 9 9 o 


IS IT 10» 100» I 000i.*,» 100000000 


3874 




SLT 


19 




36 75 




BFA 


*-2#llt0 




3876 




SLT 


1 




3877 




CFR 


XONE+1»00 




3878 




acu 


ARTHA 




3879 




I8B 


0"S-#9998 


IS IT 1 


3880 




CAO 


VI 




3881 




^XT 


\'2 




3882 




BFA 


ARTHA* 21 #0 




3883 




LDR 


OPRTN 




3884 




DBB 


0»9999 




3885 




STB 


5HIFT*06 




3886 




3FR 






3887 




BFR 


T-4.»62t24 




3338 




BUN 


ARTMA 




3889 


-x-0 


!FL 


SHIF"r«62»l 


IF S0» SLA 


3890 


-X T 


IFL 


SHIFT •62»46 


OR SRa 


3891 




LBC 


1 




3892 




STP 


CAOX 




3693 




DB8 


CAD t 9^97 




3894 




STP 


AJ-MBX 




3895^ 




BUN 


A^SMBL.OHirr 




3896 ' 




BUN 


C-»- 




3897 


"A 


IFL 


B0Ft61»l 


CSUPPRFSS ^'SF *-4>2 IN RELATIONS) 


3898 


*-A 


LDR 


OPRTN 


IP ITS ZEROf AND W^" XR'^ ADDING* 


3899 




BFR 


C+>65*0 


OR ONF AND WF ARE 'iOL T I PL V I njG » 


39 00 




BFR 


M+»A?,46 


The RESULT IS iH" OT^'ER OPERAND 


3901 




tBUN 


A .'-^ T !H A 


l^ 7ER0 AND MULTIPLYlNGt T'JE RE 


3902 


«-D 


LDR 


OPRTN 


IS ZERO* 


390? 




CFR 


D0T»67 




3904 




BCU 


artha 




39 05 


*c 


LBC 


I 




3906 




CAD - 


V? 




3907 


*Nt 


STA 


ACCUM 




3908 




BUN 


ARTHX 




3909 


arthc 


STP 


ACCX 


FINISH OF ARITHMETICS. 


3910 




BUN 


ACC4 


FIRST FREE A REGISTER IF NECtSo 


3911 




CAD 


oprtn 




3912 




SRA 


4 




3913 




EXT 


nh 





042 


80 





042 


81 


«^ 


042 


82 





042 


83 





042 


84 





042 


85 





042 


86 





042 


87 





042 


88 


u 


042 


89 





04^2 


90 





042 


91 





042 


92 




042 


93 




042 


94 





042 


95 





042 


96 




042 


97 





042 


98 


n 


042 


99 





043 


00 





043 


01 





043 


02 





043 


03 





043 


04 





043 


05 





043 


06 




043 


07 





043 


08 





043 


09 





043 


1^ 





043 


11 





043 


12 





043 


n 





043 


14 





043 


15 





043 


16 





043 


17 





043 


IB 





043 


19 





043 


20 


n. 


043 


21 





043 


22 





043 


25 





043 


26 





043 


27 





043 


28 





0^3 


29 





043 


30 





043 


31 





043 


32 





043 


33 





043 


34 






3914 
3915 
3916 
3917 

3918 
3919 
39?0 

3921 
3922 
39 23 
3924 

3925 
3926 
?927 
3928 
39 29 
3930 
3931 
3932 
39 33 
39 34 
3935 
3936 
39 37 

3938 
3939 
3940 
39 41 
394? 
39-^*3 
3944 
3945 
3946 
3947 

3948 
3949 

39 50 
3951 
3952 
3953 
3954 
3955 
3956 



39 57 

395S 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 



*E 






YETh 



?fR ^ 



?TA TEMPI 

STA TEMP 2 

CAD V2 

SRS 10 

ADL TEMP2 

CAD VI 

SRS 10 

ADL TEMP2 

ADL TEMP2 

CAD OPRTr^ 

-BFA A + »4I»0 

BFA P+»41»l 

CAD J 

ADL TFMP2 

csu Vi 

BPA E + 

EXT V2 

B'^^A E + 

BFA H+#21tl 

5TP WcMX 

BUN V/EM»*-^2 

CNST 3 01 5961 OOCC 

LDB TEMP? 

CAD - GTAP^ 

RUN 1 + 

CAD J 

ADD J 

ADL TFMP? 

ADL TEMP2 

LDB TEf^^z 

CAD - GTAPO . 

BUN I+.99B8 

!BB I+-1»G 

CAO J 

MUL FUR 

DIV TWL 

SLT 10 

ADL TEMP 7 

LDR TFMP2 



COMPUTE OPERATION CODE 

PLUS Sign of^ V2 

PLUS TWICE SIGN 0- VI 



ADDnMULTIPLYf DIVIDE OPS 
.MAX# MIN OPS 
A^;D•OR»EOIV♦ Ir'PL 0P5. 



CHECiC FOR VALID ^iCOLEAN O^ER/^NDS 



INtf^ROPER BOOLEAN OPERAND 



TMDEX INTO APPROPRIATE GTAB 



^.L 



(IN R E L A T I Or^ C A SE » CM A HG E 
AB0*:3Tab1 to FIXED) 



FLOATING 



CAD - GTaRI 
*I 5TP INTRX 
^BUN INTRP 
ARThX BUN * 



LINKI 



THIS Ta^LF entry CAUSES TH- ASSfMELER 
'^■0 PRODUCE ALL CODE NECESSARY FOR 
THE RI>:ARY OPERATOR. 



LINK 



LINK 2 



LDR 


_ 1 


STR 


EXPLN 


CAD 


- 


STP 


L IBRX 


BUM 


LIBRE 


STB 


V3 


IFL 


V3*'^l»4 


CAD 


V3 


SLA 


4 


STA 


V3 



MAK 



'ORE LIBRARY ROUTINE IS IN STORAGE 



043 


35 





043 


36 





043 


37 





043 


38 





043 


39 





043 


42 





043 


43 





043 


44 


0. 


643 


45 





043 


48 





043 


49 





043 


■50 





043 


5^ 




043 


32 





043 


53 





^43 


54 





043 


5^: 





C43 


56 


c 


043 


57 





043 


"5B" 





043 


59 





043 


60 





043 


61 





043 


6? 





043 


63 





043 


64 





043 


65 





043 


66 


s; 


043 

043 


67 
6« 




043 


69 


^'*T 


043 


70 


n 

o 


043 


71 





043 


7? 





043 


73 




C43 


74 





C43 


75 





043 


76 





043 


77 





043 


78 


c 


043 


79 





043 


8? 





043 


83 





043 


84 


"< 


043 


85 





043 


86 


p, 


043 


87 





043 


86 


n 


043 


89 





043 


90 






3967 

3968 
3969 
3970 
3971 



3972 

3973- 

3974 

3975 



3976 
39 77 

39 78 

3979 
3980 
39B1 
3982 
39 8 3 
3984 

39 8 5 
3966 
3987 
3988 
39B9 
3990 
3991 
3992 
3993 
3094 
399 5 
3996 
3997 
390 8 
3999 
.'tOOC 
4001 
4002 
4 C 3 
6.004 

40 C 5 
^-•■006 
-'-^006 



4006 
4007 
-^008 
400P 

40 r- 

4 n 11 
4012 
^013 
4014 



CAA 
STP 

D I f ^^ 

CLL 
LINKX BUN 



G6 

INTRX 
T ^t T o n 



vsur ldb funs 

DLB - 0»64»00 

ST3 LQBT»0^ 
V5UB1 CAD Gl 



INTRP STP aS'^^X 

ST.A A + 

LDR A+ 
-f^ CLA ^ 

SLT 2 

STR A-?" 

RFA C+>0 2»00 

RFA ACC1»C2>32 

BFA ACC2»02>33 

sTA e-»c- 

LDB R- 

CAD - V0CAH--1 



BUN 
«A HLT 
?-C BSA 
LOR 
STR 
STR 
SRS 
- STA 
LOR 
CAD ■ 
STA 
IMTRX PUN| 
actrl rNST 
CNST 
CNST 

C^iST 

CNST 

CONVX OEFN 

VSL'RX OF FN 



lippf 

LIBRX 



CAD 
BFA 

sra 

FXT 
SUP 
STA 
SLT 
STA 
IFL 



ASM3Y 

* 

TNTox^O 

VI 

ACT BL +4* 21 

ACTRL + ?5»21 

1 f> 

'■>-»04 

ACTBL"! 
AC CUM 

00100000000 

00000000000 

101 00000000 

I'^OOOOOOOOO 

00000000000 

10000000000 

INTRX 

INTRX 



I !BC5X»llt4 

4 

FXC 

^^ARB 

VAR-»04 

4 

Of 64 

f 5 4 • 1 



COMPILE STF» BUiN INSTRUCTIONS 



MARK B REGISTFR UNKNOWN 



RETURN** COf^PILE LDB ( ) 

RUN - 



GF'^ERATF SrFi~S 0"^ INSTRUCTIONS 
FROM VOCABULARY TABLE. 



POSSIBLY GENERATE A STORF I-iTO 
TEMP STORAGE 



RP5U' T ?S 



IS DO^JF* ANO l^ TH! 

IN THE ACC'O-^Ul.ATnP* 



SET ACC'.'^^ TO THE C■iRRF^ST RFSUL 



1 ^TXEO - TRUE STC-N 

2 FLOATIN^G -- TRUE SIGN 

? FIXED - OPPOSITE SIGM 

4 ^ LO A T I ^^i G ^ OPPO SITE S I G '' 

5 TYPE 0- V] - TRUp SIGN 

6 TYPE Or VI - REVERSEO SIGN 



PUT LIBRARY SUF)ROUT|^J^ t\«TO TARGET 
PROGRAM IE IT HASMT BEEN ^UT THERE 
ALREADYi 



043 


91 





043 


92 


/TV 


043 


95 





043 


96 





043 


97 





043 


98 





043 


99 





044 


00 




044 


0.1 





044 


02 





044 


03 





044 


04 





044 


05 


u 


C44 


06 





044 


07 





044 


OA 





044 


09 


Q 


044 


10 





044 


11 





044 


12 





044 


15 


-> 


Oi^ 


14 





044 


15 





044 


16 




044 


J 7 


r^ 


044 


18 





:44 


19 


.■^ 


044 


20 


n 


044 


21 





044 


22 





044 


23 





0^4 


24 





4^^ 


25 





044 


26 






4015 
4016 



4017 
4018 
4019 

4020 
4021 
40 22 

L 07> 3 



4024 
4025 
4026 

4C27 
4028 
4 029 
4030 
4031 
^'-032 
4033 
4034 
403'5 
4036 
4037 
4 3 P 
4039 
4040 
4041 
4042 
406.3 
4044 
4045 
4046 
4047 
4047 



CXUP 



-^A 



FXUPX 
PREV 



IFL - 0>11»1 

RUN LIBRP 



LDB LRTF 

LDR LOCN 

STA DESCR 

SRT 4 

5TR r!tf^5(3Rt04 

STA WRTF»04 

■g 5 A ■^; -f 2 * 7 

BUNJ *+2 

IFL DE5:CR»00,1 

LOR DFov-rR 

3CS *+2t2 

BUN ^-J-S 

BSA *-f2*8 

CWR 4 DF^'CR»52 

CFA PREV #04 

^CH A + 

rAD - BUF+1 

BFA A+f04»0 

CFA WRTF*04 

BCH A+ 

SUR v^RTF 

SLA 6 - 

5 T A -jf + 1 1 4 4 

DBB *^1^«0 

SIR - BUF+?i04 
BUM FXUPX 
DFL CN"!"PF>00»1 
LDB CNTRF 

STR - BUF+3 
BUN WRlt6 
DFF.N WRITX 
OFFN BUF+99 



COWPU-F TO SFT A PREVIOUS FORWARD 
RF^^'FRENCF TO THE t'RESENT LOCATION 



IF SIGN IS SEVEM* WF MEAN' THE 
PRESENT LOCATIOtN PLUS 1 



IF 

IF 

» -r 
.1 ' 

DO 



PCS(2)S PRINT THIS 

WE CAN -rx UP THE PISTRUcTjON WHRi 

SITS iH The output bupfer* -f will 

IT DIREC^-LY 



OTu^pDVir^E Wc PUT 0-J^ A FIX \ 
CODE FOR THE LOADING ROUT I f^' 



044 


30 





044 


31 





144 


32 





044 


33 





044 


34 


c 


n 44 


35 





044 


36 


.'■, 


044 


37 





C 4 <i 


38 


/\ 


044 


39 





.'^44 


40 


c 


^'t4 


41 





::44 


^2 





044 


43 






4047 


X2ER0 


*^244 


pifOfXOH'^. 


404B 




CNST 


oooooooooo 


4049 


F2ER0 


F244 


2 0f0*FONE 


40^0 




C N T 


OOOOO'-'OO^C 


4051 


XO.N'F 


F244 


21*0fXTWO 


40^7 




C -' S T 


nOOOOQOOOl 


4 053 


FONF 


F244 


20»0»FTWO 


4 54 




CNST 


^ai 000 0000 


4055 


XT WO 


F244 


21*0*0 


40 56 




CNST 


0000000002 


4057 


FTWO 


F244 


20»0»0 


4 ■:;' 5 p 




CNST 


5120000^^00 


4059 


LALP 


F?44 


30,100»20 


4060 


FCTT'V 


F244 


16»FUMGN»C 



ThP rTPc.T frp-uj cOM^TANTS 



OA-4 46 


40 61 


LOC DFP^N 


4<- 


044 47 


4061 


LOCN 


^5- + 7 


44 48 


4068 


SCRTB P244 


08»REAL»C oCRaMP'' ^' 


44 49 


^069 


HLT 





04^^ 50 


4070 


HLT 


THIS TAB 


044 51 


4071 


HLT 


The re'se 


044 52 


40 72 


F244' 


04»GOGNW0 


044 53 


4073 


HLT 





044 54 3 


4 074 


HLT 





044 55 C 


■4575 ■■ 


^244 


17fOUTGN»0 


044 56 


4C76 


HLT 





044 57 C 


4077 


HLT 





044 58 


40 7S 


HLT 





044 59 


40 79 


HLT 





044 60 


4080 


HLT 




044 61 


4081 


HLT 





044 62 


40 S 2 


HLT 





044 63 


4083 


F244 


08 f IMPGNf TABSC4-67 


044 64 


4084 


F244 


04»ORGN>0 


044 65 


4085 


HLT 


n 


044 66 


4036 


HLT 


n 


044 67 


40B7 


F244 


08»FOIGM»0 


04 4 68 


40^8 


F244 


04»TOGf^iO 


044 69 


403<^ 


F244 


03O0Mpp,0 


044 7'^i 


4 090 


HLT 





044 71 


4091 


HLT 





044 7r'' 


4097 


HLT 


r> 


044 73 


^i093 


HLT 





044 74 


4 094 


HLT 





044 75 ■^' 


409^ 


HLT 





044 76 


40*^0 


HLT 





■)44 77 


4 097 


HLT 





044 7R 


4098 


HLT 





044 '79 


4099 


^LT 





044 80 


4 1 00 


HLT 


V." 


v044 81 


41 01 


HLT 





'*:'44 82 


4102 


HLT 





044 S? 


4103 


HLT 





O41&L P54 


^U 4 


HLT 





044 B5 


4105 


HLT 





C44 86 


^106 


HLT 





O44 B7 


4 1 - 7 


HLT 





044 88 


4108 


F244 


10»^^EG'GN«TA3SC'fO2 


044 39 


4109 


F?44 


06» ANiDGN»0 


44 90 


4110 


HLT 





044 91 


4111 


HLT 





044 92 


^112 


HLT 





044 93 


^113 


F244 


06»FNDGN»0 


044 94 


4 1 ! 4 


F244 


06 ♦ AB5GN»C 


044 95 


4115 


HLT 




344 96 


4116 


HLT 


a 


044 97 


^117 


HLT 





044 93 


4118 


HLT 





:}44 99 c 


41 19 


P244 


06i3FQGM»0 ' 


045 00 


4120 


F244 


I2*FTTGNf0 



iAFLE FOR IDENTrFlFRS 

LE IS I?^|T|ALIZED TC 
RVED WORDS 



0^5 
045 

1. a 
HP 

045 

045 
C45 
C45 
-45 
045 

0.45 

045 
^45 
45 
045 
C45 
45 
045 
045 
045 
045 
045 
O45 
045 

045 

04«=i 
045 

C45 

^45 

045 
045 
C45 
0l3 

045 
045 
045 
C45 
045 
045 
045 
045 
045 
045 
045 
45 
045 
045 



01 

02 

04 

05 

06 

07 
OB 
09 
10. 

li 

120C 

1^ 

14 

15 

16 

17 

18 

19 

20 

21 

22 
?^ 

24 

25 

26 C 

27 



28 

29 

30 

31 

32 0, 

33 

34 

35 

36 

37 C 

38 

39 

40 

41 C 

42 

43 

44 

45 

46 

47 



4121 
4122 

A t 'Ja 

-T X <■- -J' 

4124 
4125 
4126 
4127 
412 8 
412^ 
.4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
414B 
41 4'^"? 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
415B 
4159 
4160 
4161 
4162 
4163 
4164 
4163 
4166 
4167 



F244 10*MFf"^RY»0 

F244 I4fB00GN»TAB5C+34 

F244 06«WODGM»^^FG 

HLT 

F244 C6»cQLGN»TABSC-l-37 

F244 12trORMG»0 

F244 06»WINGN»TAPSC-f'42 

■HLT 

tr244 16* -L0G'N»TarSC+44 

F244 06»FORGN>TABSv':+45 

F244 06 f MAXGfM * rAS5C+46 

HLT 

HLT 

HLT 

HLT 

MLT 

F244 lOtENTGNtO 

F244 06»GTRGN»GNARR 

HLT 

HLT 

F244 18*0THGiN*'^CTlN 

HLT 

F244 06»MOTGN>0 

F244 18»STAX»0 

HLT 

F244 06»LSSG'M»0 

F244 14»WONGN»0 

r;>44 lAfOVEGNfO 

F244 16»F.XTGN»0 

HLT 

HLT 

HLT 

F244 12»SWIGN*Ta8SC+34 

»- *» y A 1 /> . I I K; T 1^ M - n 

•- ,-;*}. if i V » U • ^ ! 'O ' t * V 

MLT 

HLT 

HLT 

F244 lOtlNPGNfO 

HLT 

cr744 12»RFTGN'»0 

HLT 

HLT 

F244 04»irGN'»0 

HLT 

HLT 

HLT 

HLT 



C45 5^ 
045 51 
045 52 
045 53 
045 54 
045 55 



4168 

4169 

4170 
4170 
4171 
4172 



5SC 
LOCN 
SYS 
EX^F 



HLT 

F244 

DEFN 

F244 

F244 

F244 



SCNT 
0f020C»C 

^1 ♦100»20 

3 ♦ 1 t 3 
3C«100«40 



SOM E LIBRARY, a^ OH T I M E S 

TwF .'%4~FTELnS OF THESE COnrS 



045 


56 





045 


57 





045 


58 





045 


59 





045 


60 


o 


045 


61 





045 


62 





045 


63 




04-5 


64 





0^3 


65 


c 


C45 


66 


Q 


045 


67 





045 


69 




045 


70 





045 


71 





045 


12. 





045 


73 





04^5 


74 





045 


75 





045 


76 





045 


77 





045 


78 





045 


?Q 





045 


BO 





045 


81 





045 


32 





045 


a? 


Oj 


045 


8A 





045 


87 





045 


86 





045 


8<) 





045 


QO 





045 


91 





045 


92 





045 


93 






417? 
4174 
4175 
4176 
4177 
4178 
4179 

J. «* I-* "^ 

4181 
413? 
4133 
4184 

4164 
4600 
46 01 
4602 
4603 
4604 
4605 
^606 
4607 
4-608 
4609 
461^' 
4611 
461? 
4613 
4614 



4615 

4644 
46 73 
470-? 
47^1 
4760 
4789 



FIX 
FLOAT 

MONTR 
MAM AX 
MNTRE 
FRROR 

DUMPR 

SCNT 

STACK 



FRl 
FR2 
FR3 

FR6 

FR7 
FR4 
FR5 



F244 
F244 
CNST 
F244 
CNST 
F244 
HLT 

r- '•> f. r. 

F244 

-P?44 
F244 
DFFN 



30»100>^0 

Bl »1 00*60 

$FIX$ 

30 ♦ 100*71 

$=^LQAT$ 

3 0*100*80 

M ^- 1 Z E 

/. r> - tA/^iu T a ^ f\ 

30*100*90 
30*100*100 

40*DMPER*0 



ARF FlX^n UP TO THE NUMBFR 

Or LOCATIONS IJSFD BY IHF ROUTINES* 

BY THE LIBRARY PROCESSOR, 






.OCN 4600 



CRF 
MRW 
CLL 
LDB 

RTF 

CRF 

CWF 

CWF 

C^^'F 

CWF 

CWF 

V!OW 

3CS. 
/- wi a 

V_ " is 

rUN 



FRGR 

FRGR 
FPGR 
FBGR 

FBCsR 
FPGR 
FRGR 



FR1+28*21»RL0 IN T TTALIZaT ION OF ThF PROGRAM 

OT 

BUF 

WRIT4 

RUF»99 

'^R24-28»31 

FR6+2B»3? 

FR3+28*!? 

FR4+28*4? 

FR5+?B»22 

FR7+?8*52 

4?00*0T»A 

S C N 2 * 4 

lMfiGF + 15922*^ UNLESS t^rc. ( 4 5 , pp j^j rOMPlLFR TiTLE 

bCHz 



CLEAR OUTPUT BUFFFR 

LOAD FORMAT BANDS 
FORWARD REFFRFNCFS 
OUTPUT INSTRUCTIONS 
ERROR MESSAGES 
ALGOL STATEMENTS 
FIXUPS 

WRITE LOAOI'^G ROUT IN 



i H": t-j'cO'af^ Af. b l Af^ i i; A 



N' ':> 



|NPUT*T2Z1P4A*15{T5A) 

INouT»16{"5A) 

pRIN4Tf49B*TZZZZZ2NNNM»3RB»5BNNNMRNN3MNNN»BT5A»44B 

PRINT ,49B*TZZZZZZf<JNNN*BRP •SBNMN*f4P:N'NBZZZ2 » 5BT^A >44^ 

PR I NT 49 R*TZZZZZZMNNKUBBB»T6ZI0BNM^IN» 506 

PRINT»7(T5A1 *35B 

PRINT»16{T5A) •408 



045 99 


4818 


^46 00 


4061 




4061 




40 62 




4063 




4064 




4065 




4066 




4067 



LOCN 


LOC 


FIMT 


1 




4.037172^000 




+609^^9^999 




+5822570000 




x99999Q999<? 




+6034037172 




+495 9 0^36 00 




+4959045600 



#00*0 


0100 


F^XP 


DFFN 


100 




«00«0 


0200 


ERRO^ 


DEFN 


200 




*00»0 


0000 


SINH 


CtR 






•oo»o 


0001 




CFA 6 


EXP+71»00 




•oo»o 


0002 




BCh 8 


C4 




• 00,0 


0003 




CFA fi 


+5O5OOOOOOO1 


.00 


♦ OOfC 


0004 




BCL 8 


A+ 




#00*0 


0005 




STP 6 


FXP 




tOO,0 


0006 




8U?« 6 


rxP42 




#00.0 


0007 




STA 6 


FRROR+48 


A 


tOO.O 


0008 




CSU 6 


ERROR+51 


at 


• 00.0 


0009 




FDV 6 


ERROR +48 


A 


#00«0 


0010 




FAO 6 


ERROR+48 


A 


♦ 00,0 


0011 




FMU 8 


+5050000000 




tOO,0 


0012 


*B 


tD8 3 


SINH 




♦ 00*0 


0013 




RUN - 







• 00,0 


0014 


*A 


STA 6 


FRR0R+A8 


A 


»00,0 


0C!5 




FMU 6 


ERROR+48 


A 


♦ 00.0 


0016 




STA 6 


ERR0R4A9 


8 


»0O,0 


0017 




FMU 8 


+4719841270 




• 00.0 


0018 




FAD e 


+^883333333 




#oo#o 


0019 




FMU 6 


ERROR+49 


B 


#00,0 


0020 




FAO 8 


+5016666667 




• 00»0 


0021 




FMU 6 


tRROR+49 


B 


• 00«0 


C0?2 




FMU 6 


5RR0R+48 


A 


»00#0 


0023 




FAD 6 


cRROR+48 




»00t0 


0024 




BUN 8 


B-* 




.00*0 


0025 


*c 


LDB 8 


SINH 




•oo.o 


0026 




LOR 8 


SSINHS 




ftOO.O 


0027 




BUN 6 


ERROR 




• 00.0 


0028 

28 

029 

0030 

0031 
0032 




FINI 


SINH 

$S!NH 

+4719841270 

+4883333333 

+5050000000 

+5016666667 





iO« 



,00*0 
«00«0 
,00.0 

• 00, 
#00, 
#00, 

*oo, 

*00, 

• 00, 
iOO 

»oo, 

• 00, 
tOO 

• 00, 

• 00, 
♦00, 
#00, 
♦00, 

• 00, 

• 00^ 

• 00, 

• 00, 

• 00, 

• 00, 

• 00 

• 00, 

• 00, 

• 00, 

• 00, 

• 00, 

• 00, 

• 00, 
♦00, 

• 00, 

• 00 

• 00, 
#00 

• 00, 

• 00; 

• 00, 

• 00, 
#00, 
#00, 
#00, 

• 00, 
#00 
#00, 

• 00 

• 00, 

• 00, 

• 00, 

• 0O#0 

•oo#o 



,0 



,0 



lO 



lO 







.0 









,0 

,0 

,0 









lO 

,0 

,0 

,0 

,0 

,0 

.0 



.0 



,0 

,0 

,0 

,0 



,0 

,0 

,0 



,0 

lO 

,0 

,0 



iO 





The 

OlOO 
0000 
0001 
00 C 2 
0003 
00 C 4 
0005 
0006 
0007 
00C8 
0009 
0010 

00 n 

0012 
0013 

oou 

0015 
0016 
0017 
0018 
0019 
0020 
00?1 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0031^ 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
00^.2 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0050 



MONITOR SUBROUTINE 



ERROR DEFN 
MCmiR BCS 

STB 6 

inn a 

BOF 6 
STA 6 

tm 8 

BCS 3 
OLB - 
LDR - 
STR 8 
LOe 8 
CtL 8 
CLL 8 
STB 8 
CAD - 
BPA 8 
SUB 6 
STA 8 
*E CLA 8 
♦B ADD 

LDR - 
BFR 8 
STA 8 
BPA 8 
IFL 8 
CWR 8 
CAD 6 
STB 8 
LDB 6 
BUN 
SRT 
STR 8 
BSA 8 
TFL 8 
LSA 
BFR 8 
SUB 8 
IFL 8 
TFL 8 
STA 8 
SLA 
STA 8 
IFL 8 
IFL 8 
BUN 8 
OUT CNST 
CNST 
CNST 
CNST 
CNST 
FtNl 



»C 



*A 



100 
*tlO 
ERROR -*-49 

ERROR+21 

ERRORh^48 

?^ONTR 

D-f flO 

9999, 44,0 



OUT 

MONTR 

OUT +3 

our +4 

0UT^1#64 

9997 

ERROR +49 
B+t04 

MONTR4'4 

9^8 
A+t2i»0 

OUT+2 

C*»- 

OUT+1 •42*20 

0UT+4»32 

FRR0R+4e 

♦+2*04 

ERROR +4 9 

* 

8 

OuT+2 

*+2#0 

OUT+1#42»20 



*+2*88»0 

+ 50 

OUT+3»02»23 

OUT+1»62»03 

OUT +4*01 

1 

0UT+4f89 

0UT+4f91#8 

0UT+4#71f8 

c- 



$« $ 







MONTR 

+0 50 



iOO»0 


0100 


SINH 


DEFN 


100 


♦ 00*0 


0200 


COSH 


r>€FN 


200 


#00. 


D500 


ER^OR 


D€FN 


300 


,00,0 


0000 


TAMH 


MOP 




«00*0 


0001 




STA 8 


X 


#00*0 


0002 


• 


LDR 8 


TANH2 


♦ OQiO 


000 3 




CFA 8 


4.5250OQOOO0t00 


tOOtO 


0004 




BCH 8 


B-f 


*oo*o 


0005 




STP 6 


COSH 


»00f0 


0006 




BUN 6 


COSH-l-2 


• 00»0 


0007 




STA 8 


COSHX 


• 00#0 


0008 




BZA 8 


A+ 


♦oo*a 


0009 




CAD 8 


X 


•oo«o 


0010 




srp 6 


SINH 


tOOtO 


0011 




BUN 6 


SINH 


♦ OOgO 


0012 




FOV 8 


COSHX 


♦ 00.0 


0013 


*A 


LDB 8 


TANH 


•oo«o 


0014 




BUN - 





• 00.0 


0015 


*B 


CAO 6 


ERROR +51 


• 00«0 


0016 




LOR 8 


X 


iOO^O 


0017 




SLT 





#00.0 


0018 




BUN 8 


A- 


.00.0 


001© 


X 


CN5T 





.OOiO 


0020 


COSHX 


CNST 





• OOfO 


0021 


TANH2 


HIT 8 


TANHl 


ftOOaO 


0022 


TANHl 


CNST 


$TANH$ 


.00.0 


0023 
0023 




FINI 


TANH 
+5250000000 



= 1,0" 



♦ OOgO 


OlOO 


EXP 


DEfH 


100 


♦ OOtO 


0200 


e:RROR 


DEFN 


200 


,00,0 


0000 


COSH 


MOP 






,00,0 


OOCl 




LOR 


8 


C0SH2 


,00,0 


0002 




ISA 






,00,0 


0003 




STP 


6 


E)ff> 


♦ 00,0 


0004 




BUN 


6 


exp-j-? 


,00,0 


0005 




bza 


6 


A + 


,00,0 


0006 




STA 


6 


ERROR-i-48 A 


,00^0 


0007 




CAD 


6 


ERR0R4-51 =1,0 


,00,0 


oooe 




FOV 


6 


ERROR +48 A 


,00,0 


0009 




FAO 


6 


ERROR+48 


,00,0 


0010 




FMU 


8 


+5050000000 


,00,0 


0011 


*A 


LOB 


8 


COSH 


,00,0 


0012 




BUN 


■H 





,00,0 


0013 


COSH 2 


HLT 


8 


COSHl 


,00,0 


00! 4 


COSHl 


CNST 




SCOSHS 


,00,0 


0015 
015 




FTNI 




COSH 
45050000000 



iOO«0 


OlOO 


•TRROR 


DEFN 


100 


tOO»0 


0000 


TRACE 


BCS 




*f9 


«00,0 


0001 




DL8 


8 


Y+#44»0 


•oo»o 


0002 


HOLD 


BOF 


6 


ERROR4-21 


tOO«0 


0003 


TRi 


LDS 


S 


TRACE 


.oo^o 


0004 




STA 


8 


HOLDO 


M 00 * 


0005 




CAO 


•»- 


9^99 


.00,0 


0006 




STA 


8 


HOLD t 44 


• 00*0 


0007 




BFA 


8 


Y4*44^0 


• OOtO 


0008 


«A. 


CAO 


- 


1 


• 00.0 


00C9 




CFA 


8 


TRlf04 


.00.0 


ooio 




BCU 


8 


*+2 


.00.0 


0011 




IBB 


8 


A-»2 


.00.0 


0012 




ADA 


8 


HOLD 


.00,0 


0013 




BOF 


8 


* + l 


,00.0 


0014 


*Y 


F4247 


Bt44»0 


,00.0 


0015 




BFA 




lf44f 


.00.0 


0016 


*Z 


LDB 


8 


TRACE 


.00.0 


0017 




CAD 


8 


HOLDO 


.00,0 


O018 




RUN 


,-' 





.00.0 


0019 


hOLdo 


CNST 





.00.0 


0020 




FIN] 


[ 


TRACE 



,00,0 


OlOO 


ERROR 


DPFN 


100 


»00,0 


02OO 


SORT 


DEfH 


200 


,00,0 


OOOC 


ROMXX 


F4247 


3»1»0 


,00,0 


OOCl 




DL5 


8 


«-l»44fO 


f\r\ n 


nf^r\'3 




nnr- 


e. 


eraa/^D A-rn 


• * ' '-' • ^ 


»j V.' w £: 




r?^r 


%3 


d »>^^^^■^ -Tjc, J. 


,00,0 


0003 




LDR 


8 


ROM 2 


,00,0 


0004 




STR 


8 


B4->04 


,00,0 


0005 




CFA 


6 


ERROR +5 If 00 s 


,00,0 


0006 




BCH 


8 


B-*- 


,00,0 


0007 




BFA 


8 


c4f22f51 


,00,0 


0008 




BZA 


8 


^* m 


• 00,0 


0009 




STA 


6 


FRf?0R+48 »A 


,00,0 


OOlO 




FMU 


6 


FRR0R-f48 WA 


,00,0 


0011 




SLT 




2 ' 


,00,0 


0012 




STR 


8 


E4-»02 


,00,0 


0013 




LBC 


8 


E+ 


• 00,0 


0014 




SRT 


- 


51 


,00t0 


0015 




SUB 


8 


+1000000000 


,00,0 


0016 




SLT 




10 


• 00,0 


00 17 




SUB 


6 


ERROR+47 « 


• 00,0 


0018 




SUB 


6 


ERROR +4 7 


,00,0 


0019 




SLT 




10 


♦ 00,0 


0020 




BOF 


8 


♦+2 


• 00.0 


0021 




F4248 


51»12#+1 


• 00,0 


0022 




DLB 


8 


*-l»44tO 


,oo#o 


0023 


»0 


BFA 


8 


C+fll.O 


^00t0 


0024 




STB 


8 


E + »04 


*00,0 


0025 




LOR 


6 


E4- 


• 00,0 


0026 




SLT 




18 


,00,0 


0027 


*G 


I.D© 


8 


ROMXX 


,00*0 


0028 




BUN 


6 


SORT+2 


,00,0 


0029 


*C 


SLT 




1 


• 00,0 


0030 




OBB 


8 


D-»l 


,00*0 


0031 


*F 


LSA 




1 


• 00,0 


0032 


*r 


FAD 


6 


ERR0R451 


• 00,0 


0033 




BUM 


8 


G- 


• 00,0 


0034 


♦ B 


LDR 


8 


ROMl 


,00,0 


0035 




LDe 


8 


ROMXX 


,00,0 


0036 




RUN 


6 


ERROR+7 


• 00,0 


0037 


ROMl 


CNST 


SROMXXS 


• 00,0 


0038 


ROM 2 


HLT 


8 


ROMl 


• 00,0 


0039 


R0M3 


CAO 


8 


4-5115707963 


,00,0 


0040 




LOR 


6 


ERROR+48 A 


,00,0 


0041 




B2R 


- 





♦ 00,0 


0042 




SLT 







§00,0 


0043 




BUN 


am 





• 00,0 


0044 
0044 
0045 
0046 




FINl 


I 


ROMXX 

+1000000000 
+00 01 
45115707963 



»1,0 = 



«5(11)= 



= 1»0> 



• 00.0 


THE 


LABEL 1 


PROCESSING SUBROUTINE 


• 00.0 


0100 


FRROR 


DEFfs 


1 


100 




.00.0 


0000 


LABEL 


BCS 




*#8 




.00.0 


0001 




LOB 


8 


NUMLB 




• 00,0 


0002 




BOF 


6 


PRROR-t-Sl 




• 00.0 


0003 




L!>B 


8 


LABEL 




*oo«o 


0004 




OLB 


.-. 


9998, 44 fl 




#00.0 


0005 




STB 


8 


HOLD 




• 00«0 


0006 




LDB 


8 


LABEL 




,00i0 


0007 




DLB 


• 


9999,/^4,0 




.00.0 


0008 




STA 


e 


HOLDl 




iOOfO 


0009 




CAO 


- 


D 




• 00.0 


0010 




STA 


6 


ERROR+49 


B 


.00.0 


OCll 




SRT 




10 




• 00.0 


0012 




STP 


8 


NUMLX 




.OOtO 


0013 




BSA 


8 


NUMLB»1 




.00.0 


0014 




STA 


6 


ERROR+43 


OUT+7 


.00.0 


0015 




STR 


6 


ERROR+44 


GUT-?.8 


.00.0 


0016 




CAA 


8 


HOLD 




.00.0 


0017 




SUB 


s 


♦10000 




.OOtO 


0018 




SRT 




10 




• 00.0 


0019 




STP 


8 


NUMLX 




.00.0 


0C20 




BUN 


8 


NUWLB 




»00»0 


0021 




STR 


6 


ERROR+45»08 


OUT+9 


,00»0 


0022 


^^I 


BUN 


6 


*+l 




.00.0 


0023 




IfL 


6 


£RnOR-f-45»22#24 OUT + 9 


.OOgO 


0024 




IFL 


6 


ERR0R+46»22i 


►04 OUT + iO 


.00»0 


0025 




!FL 


8 


I-t04#3 




♦ 00.0 


0026 




BCS 


8 


PRINTt? 




• 00.0 


0027 


EXIT 


LDB 


6 


LABEL 




• 00.0 


0028 




CAO 


3 


HOLDl 




.00,0 


0C29 




BUN 


- 







• OOfO 














.00.0 


0030 


PRINT 


STB 


6 


ERROR'i-48 


A 


• 00,0 


0031 




LOB 


8 


♦4-2 




.00.0 


0032 




RTF 


6 


ERR0R+24f 1 


ZERO 


fOO.O 


0033 




RTF 


6 


ERROR+36»5 




• 00.0 


0034 




CWR 


6 


ERROR +46 #42 


OUT+iO 


• 00.0 


0035 




LDB 


6 


ERROR+48 


A 


• 00«0 


0036 




BU« 


8 


EXIT 




• 00*0 














• 00,0 














.00.0 


0037 


NUMLB 


F4248 


8001#45fLABEL4.3 


• 00,0 


0038 




SLA 




1 




• 00,0 


0039 




SLT 




1 




.00,0 


0040 




SUB 


8 


-l-SO 




♦ 00.0 


0041 




IFL 


8 


NUMLB»11»8 




,00.0 


0042 




BOF 


8 


NUMLB-^1 




,00,0 


0043 




IFL 


8 


^^-1»11»5 




,00,0 


0044 




BOF 


8 


A + 




.00.0 


0045 




STA 


6 


FRROR+50 


C 


.00.0 


0046 




BUN 


8 


NUMLB 




.00,0 


004? 


*A 


SRT 




10 




• 00,0 


0048 




CAD 


6 


ERROR+50 


r 


,00.0 


0049 


f^UMLX 


BUN 




♦ 





,00»0 



0050 


FINT 


LABEL 


50 


HOtOl 




51 


HOLD 




0052 




4-000001 000 


053 




+000 80 



• 00,0 


0000 


ENTTR 


CRB 






tOO.O 


0001 




CFA 


8 


+58100000 00*22 


♦ oo»o 


0002 




BCH 


8 


A+ 


tOO^O 


0003 




SRT 







tOC,0 


0004 




BPA 


8 


84 


• 00,0 


0005 




LSA 







«oo,o 


0006 




FAD 


8 


+5099999999 


,00,0 


0007 


*8 


FAD 


8 


+5810000000 


•oo»o 


0C06 




FSU 


8 


+5810000000 


,00,0 


OOOo 




SLT 







,00,0 


0010 


*A 


LOB 


8 


ENTIR 


♦ OOfO 


0011 




BUN 


- 





•oo«o 


0012 
0012 
0013 




FINl 




ENTIR 

+5099999999 

+5810000000 



• 00*0 


0100 


ERROR DEFN 100 




tOOtO 


0000 


atan cm 




.00,0 


0001 


LDB 8 ATAN 




.00,0 


0002 


CFA 6 ERROR451»00 


=^U0- 




M. A JXS 


f~ y » r f-nr»/%Dj.AO 


A 


§00, v/ 


Lfuu3 


■3 : fK D ji.r,r\vT\ -TTc 




♦ 00,0 


000^ 


STB 8 C+«44 




,00,0 


0003 


BCt 8 B+ 




♦oc,o 


0006 


DFL 8 C"f»44»l 




»oo,o 


0007 


F4248 5010s 10$+5099999999 


,00.0 


0008 


FOV 6 FRROR+48 


A 


tOO.O 


0009 


^R CfA 8 *~2#0C 




,00*0 


ocio 


BCL 8 A+ 




• 00,0 


0011 


SLA 2 




,00,0 


0012 


STA 6 ERROR+48 


A 


,00,0 


0013 


MUL 6 ERROR4.48 


• 00,0 


0014 


STA 6 ERROR-l-49 


,00,0 


0015 


VIUL 8 +0049017591 




• ^^ ^^ • 

,00i0 


0016 


ADD 8 +0565030980 




,00,0 


0017 


MUL 6 ERROR+49 


B 


.OOfO 


0018 


ADD 8 +1453567135 




,00,0 


0019 


MUL 6 ERROR+49 


B 


m ^^ ^ w 

,00,0 


0020 


ADO 8 +1000000000 




,00,0 


0021 


STA 6 ERROR+50 


C 


,00,0 


0022 


CAD 8 +0008561189 




,00#0 


0023 


MUL 6 ERROR+49 


B 


,00,0 


0024 


AOD 8 +02S0504$41 




,00,0 


0025 


MUL 6 ERROR+49 


B 


,00,0 


0026 


ADD 8 +1120234014 




,00,0 


0027 


MUL 6 ERROR+49 


B 


,00,0 


002S 


ADO 8 +1000000000 




• 00,0 


0029 


MUL 6 ERROR+48 


A 


,00,0 


0030 


SRT 2 




,00,0 


0031 


DIV 6 ERROR+50 


C 


• 00»0 


0032 


STA 6 ERROR+50 


C 


,00»0 


0033 


IFL 6 ERR0R+50#lli 


• 5 


• 00,0 


0034 


CAD 6 ERROR+50 


C 


,00«0 


0035 


*C IBB - 0*0 




,00,0 


0036 


C^ 8 +5115707963 




• 00«0 


0037 


LDR 6 ERROR+48 


A 


• 00,0 


0038 


SLT 




,00,0 


0039 


FSU 6 ERROR+50 


C 


,00,0 


0040 


BUN - 1 




,00,0 


0041 


*A STA 6 ERR0R+4e 


A 


,00,0 


0042 


FMU 6 ERROR+48 


A 


,00,0 


0043 


STA 6 ERROR+49 


B 


w ** " • 

• 00,0 


0044 


FMU 8 -5014281428 




9 ^^ W 

• 00,0 


0045 


FAD 8 +5020000000 




,00,0 


0046 


FMU 6 ERROR+49 


B 


• OOtO 


0047 


FSU 8 +5033333333 




,00,0 


0048 


FMU 6 ERROR+49 


B 


#00 •o 


0049 


FMU 6 ERROR+48 


A 


• 00,0 


0050 


FAD 6 ERROR+48 


A 


• 00,0 


0031 


STA 6 ERROR+50 




,00,0 


0032 


BUN 8 C- 




,00,0 


0053 


FINT ATAN 





053 +1000000000 

0054 +5099999999 

0055 +5033333333 

0056 +5020000000 

0058 -501428X428 

0059 +1453567135 

0060 +004901T591 

0061 +0008561189 

0062 +1120234014 
-063 +0565030980 
0C64 +5115707963 



♦ 00,0 


0100 


AlAN 


DEFN 


100 


• OOfO 


0200 


ROWXX 


DEFN 


200 


tOCUO 


0300 


FRROR 


De>N 


300 


»00.0 


0000 


ACOS 


MOP 






A r« /\ * 

vj i; V A 






A 


♦oo^o 


0002 




LDB 8 


ACOS 


iGO»0 


0003 




BZA 6 


ROMXX+39 


.00*0 


0004 




t-DR 8 


AC052 


«00t0 


0005 




SIP & 


ROJ^XX 


»00«0 


0006 




BUN 6 


ROMXX+4 


t00«0 


0007 




FOV S 


X 


#00,0 


0008 




STP 6 


ATAN 


• 00,0 


0009 




BUN 6 


A TAN 


♦ 00,0 


0010 




LOB 8 


ACOS 


♦ OOfO 


0011 




LDR 8 


X 


♦ 00,0 


0012 




SLT 





♦ 00,0 


0013 




BPA - 





♦ 00,0 


0014 




FAD a 


+5131415927 


♦ OO^O 


0015 




BUN - 





♦ 00,0 


0016 


AC0S2 


HLT 8 


ACOSl 


♦ 00,0 


0017 


ACOSl 


CNST 


SACOSS 


♦ 00,0 


ooie 


X 


CNST 





• 00,0 


0019 
0019 




FINl 


ACOS 
4-5131415927 



♦ OOfO 


0100 


ATAN 


DFFN 


100 




*00i0 


0200 


ROMXX 


DEfN 


200 




tOO#0 


0300 


ER«OR 


DEFN 


300 




iOO#0 


0000 


ASIN 


NC»> 






— -t_ ^* 


J>^ J^ ^ M 




<-"r « ^ 


r-OOri'^ j-AO 


A 


«00«u 


JUUl 




C3 ! « c 


j; • >i ■> sy ^ -r -T t," 


f—v 


• OOftO 


0002 




LDR 8 


ASIN2 




^OOfO 


000^ 




5TP 6 


ROMXX 




tOOtO 


000^ 




gUN 6 


ROWXX^^ 




•oo«o 


0003 




LOB 8 


ASIf^ 




»oo«o 


0006 




R2A 6 


ROMXX+39 




♦ 00.0 


0007 




STA 6 


cRR0R4'49 


B 


• OOtO 


3008 




CAD 6 


ERROR-l-^e 


A 


♦ OOtO 


OOOo 




FDV 6 


FRROR+49 


B 


•oo»o 


0010 




BUN 6 


ATAN-J-a 




•oo«o 


non 


A5IN2 


HLT 8 


ASINl 




• OOiO 


0012 


ASINl 


CNST 


SASIMS 




tOO«0 


0013 




FIN! 


AStN 





.00*0 


0100 


SIN 


DEfH 


100 


• 00*0 


0200 


COS 


DEFN 


200 


♦ GOiO 


0300 


FRROR 


DEFN 


300 


.00,0 


OOOG 


TAN 


CRB 




iOOtO 


00-1 




STa S 


X 


.00,0 


0002 




LOR 8 


TA^SZ 


^00^0 


0003 




STP 6 


■S! N 


,00,0 


0004 




BUK 6 


CC^+A 


fOOfO 


0005 




B2A 8 


A+ 


• 00*0 


0005 




STA 8 


COSX 


• 00«0 


0007 




CAO 8 


X 


,00t0 


0008 




STP 6 


SIN 


#00,0 


00C9 




BUN 6 


SIN 


»00i0 


0010 




FOV 8 


COSX 


• 00.0 


0011 




Lt>e 8 


TAN 


• 00#0 


0012 




BUN - 





• 00«0 


00 2 3 


*A 


LDR 8 


X 


• 00.0 


oou 




CFA 8 


*+I»22 


♦ 00,0 


0015 




F42A* 


580] •SJN'tO 


,00^0 


0016 




LDB 8 


TAN 


,00.0 


0017 




LDR 8 


TANl 


.00.0 


0018 




BUN 6 


FRROR 


.00^0 


0019 


X 


CNST 





.00.0 


0020 


cosx 


CNST 





• OOfO 


0021 


TANl 


CNST 


$TAN$ 


.00.0 


0022 


TAN2 


HLT 8 


TANl 


• 00*0 


0023 




FINI 


TAN 



»00i0 


oico 


SIN 


DEFN 


100 


♦ 00^0 


oooo 


COS 


CRB 




♦ DOiO 


OOOl 




LDR 8 


COS 


♦ 00.0 


0002 




STR 6 


SINiOh 


#00. G 


0003 




LDR S 


C0S2 


• 00*0 


0004 




FAO 8 


+5078539816 


tOOtO 


0005 




FAD 8 


+5079539816 


• 00.0 


0006 




BUN 6 


SlN+2 




SJ\J\' f 


COS? 


1 ll T r» 


COSI 


»00.0 


0008 


cosi 


C^4ST 


scoss 


gOOtO 


0009 
9 




F!N! 


COS 
+5078539816 



tOO.O 


OlOO 


ERROR 


DEFN 100 




^00.0 


0000 


SIN 


CRB 




♦ 00,0 


0001 




LDR 8 SIN2 




,D0»0 


00C2 




SIR 8 F+«04 




»oo»o 


0003 




CLL 6 ERR0R+4e 


A 


w ^ w 


^ 




r^r^'J 3 -r503IS309S9 




.OOgC 


UUU4 






• 00,0 


0005 




SLT 2 




,oo#o 


0006 




STR S EXP •02 




iOO^O 


0007 




LDB 8 EXP 




iOO.C 


0008 




IBB 8 A-f'»9949 




• 00,0 


0009 




OBB B R4'»7 




#oo«o 


0010 




SLT - 18 


A 


,oo»o 


0011 




STA 6 ERR0P448 ] 


1'' 


,00*0 


0012 




CAD 8 *+l * 


w 


»oo,o 


0013 




SLT 50 




t00,0 


0014 


^^A 


SLT 18 




tOOiO 


0C15 




STA 6 EJ?ROR-f50 


c 


• OOiO 


0016 




FAO 6 ERROR-fSO 


c 


• 00*0 


0017 




CFA 6 ERROR+51f00 


=:UO=s 


• 00#0 


0018 




3CL 8 D+ 




tOOtO 


0019 




LSA 




♦ OOiO 


0020 




FSU 8 45120000000 




♦ OOfO 


0021 




SLT 




• OOsO 


0022 


*D 


STA 6 ERROR+50 


c 


• 00#0 


0023 




FMU 6 ERROR+50 


c 


*00i0 


0024 




STA 6 ERROR+49 


B 


♦ 00,0 


0025 




FMU a +4715148419 




♦ OOtO 


0026 




FAD 8 -4846737656 




»00»0 


0027 




FMU 6 FRROR+49 


8 


• 00.0 


0028 




FAD 8 +4979689679 




ft00*0 


0029 




FMU 6 ERROR+49 


B 


,00*0 


003C 




FAD 8 -5064596371 




• 00*0 


0031 




FMU 6 ERROR+49 


B 


*00*0 


0032 




FAO 8 +5057079632 




• 00#0 


0033 




FMU 6 ERROR+50 


C 


• 00,0 


0034 




FAO 6 ERROR+50 


c 


• 00,0 


0035 




STA 6 ERt?OR+50 


c 


• OOiO 


0036 




CAD 6 ERROR+47 


=5(11) 


• 00*0 


0037 




MUL 6 ER^OR+^8 


A 


• 00*0 


0038 




CAD 6 Ff?POR + 50 


C 


•OOiO 


0C39 




LDB 8 SIN 




• 00*0 


0040 




B2R - 




• 00*0 


0041 




C5U 6 ERROR + 50 


c 


• 00*0 


0042 




BUH - 




• OOiC 


0043 


■«-B 


LDB 8 SIN 




• 00»0 


0044 


*F 


LDR 8 5IN1 




• OOiO 


0045 




RUN 6 ERROR+14 




•oo»o 


0046 


SIM2 


HLT 8 5IN1 




• 00*0 


0047 


SINl 


CNST $SIN$ 




• 00*0 


0048 


EXP 







• OOtO, 


0C49 
0049 
0050 

0051 




FINI SIN 

+5120000000 
-5064596371 
-4846737656 





0052 +4979689679 

0053 +5031830989 

0054 +505707963 2 

0055 +47151%8419 



• 00,0 


0100 


pLOaT 


DEFN 


100 


• 00,0 


200 


FLFL 


OEFN 


200 


#00,0 


0300 


FPf?OR 


DEFN 


300 


,00,0 


0000 


FXFL 


CLB 




tOO*0 


0001 




LDB 8 


FXFL 


-An .n 

» ^' "^ • " 


000? 




STR fe 


FLFL » 04 


♦ 00,0 


0003 




STR 6 


ERRCR+50 


,00 #0 


0004 




STR 6 


gRR0R+A9 


• 00*0 


0005 




STP 6 


FLOAT 


*oo,o 


0006 




BUN & 


FLOAT 


• 00,0 


0007 




RUN 6 


FLFL+2 


«00«0 


0008 




FIMI 


1 



♦ 00.0 


OlOC 


FRI?OR 


D£FN 


1 


100 




,00.0 


0000 


fXfx 


CLB 








•on,o 


0001 




LD8 


8 


FXFX 




,00t0 


0002 




BZA 


3 


P4. 




• 00.0 


0005 




STR 


6 


FRf?0R+49 


B 


A A n 


Artn /. 




CT A 


£ 


FRR0R+4R 


A 


«vv-;»" 


V V '- *-»■ 




--' ' 1^ 


i_? 






.00.0 


0005 




CLL 


6 


ERROR+50 


c 


.00.0 


0006 




IfL 


6 


gRROR+50»00»l 




.00.0 


0007 


*A 


CAD 


6 


ERROR +47 


=5(11) 


.00.0 


0008 




MUL 


6 


ERROR+49 


B 


.00.0 


0009 




STA 


6 


ERROR+49 


8 


#00.0 


0010 




BZR 


8 


B-f 




♦ 00.0 


0011 




CAD 


6 


ERROR+50 


C 


.00.0 


0012 




MUL 


6 


ERR0R448 


A 


.00.0 


0013 




STR 


6 


ERROR+50 


c 


.00.0 


0014 




B2A 


8 


B+ 




.00.0 


0015 




BUN 


8 


A+ 




.00.0 


0016 


♦ R 


LDR 


6 


ERROR+49 


B 


.00.0 


0017 




BZR 


8 


C+ 




#00.0 


0018 




CAD 


6 


ERROR+48 


A 


.ao.o 


001.'? 




MUL 


6 


ERROR+48 


A 


.OOiO 


0020 




STR 


6 


ERROR+48 


A 


«00#0 


00?1 




BZA 


8 


A~ 




.00.0 


00?? 


♦A 


CAD 


6 


ERROR+49 


B 


• 00.0 


00?3 




BMA 


8 


E+ 




• 00. 


00?4 




LDR 


8 


$FXFX$ 




• 00.0 


0025 




BUN 


6 


ERROR 




• 00.0 


0026 


*C 


CAD 


6 


ERROR+50 


C 


• 00.0 


0027 




BFR 


8 


D+»l2*i0 




.00^0 


0028 




BUN 


-» 







• 00.0 


0029 


*0 


LOR 


8 


+ 1 




.00,0 


0030 




CLA 








.00.0 


0031 




DIV 


6 


ERROR+50 


c 


.00.0 


0032 




BUN 


- 







.00.0 


0033 


«F 


CFR 


6 


ERROR+24 


ZERO 


.00,0 


0034 




BCH 


•B 







.00,0 


0035 




LDR 


8 


$FXFX$ 




,00.0 


0036 




BUN 


6 


ERROR+7 




.00,0 


0037 


*F 


CLA 








,00,0 


0036 




RUN 


mt 







.00.0 


0039 




FINt 


FXFX 






0039 








+ 1 






40 








$FXFX 





• 00*0 


01 00 


TRRCR 


DFFN 


100 




,00,0 


■ 0000 


FLFX 


F4247 


3»0l** 




,00,0 


000 1 




DLB 


8 


**1#44»0 




»ao,o 


0002 




8CF 


6 


ERROR4.2I 




,00,0 


0003 




5TR 


6 


FRR0R4'49 


B 


nr\ n 


rtAr*/. 




CT4 


^ 


CDOTiD _t /. 


A 


, »j ^,■ , V - 


W ^i- — 




■J I r- 


o 


C. >-M\ v^>> -r-^fj 


u 


♦ 00,0 


0005 




LDB 


8 


FLFX 




,00, 


0006 




B^A 


8 


■A4. 




• 00,0 


0007 




CAD 


6 


ERROR +51 


= 1*0 = 


, V/ U , w 


ooos 




B2R 


- 






,00,0 


0009 . 




ST A 


6 


rRROR+50 


c 


,00,0 


OOIO 


*B 


CAO 


6 


rRROR-j'47 


=5(11) 


,00,0 


0011 




MUL 


6 


ERROR -^49 


B 


• 00,0 


0012 




STA 


6 


FRROR+49 


B 


• 00,0 


0C13 




BZR 


8 


C-f 




,00,0 


00 u 




CAD 


6 


ERROR+50 


C 


,00.0 


0015 




FMU 


6 


ERROR+48 


A 


iOO,0 


0016 




STA 


6 


ERROR+50 


C 


,00,0 


0017 


»C 


LDR 


6 


ERROR 'f49 


B 


,00,0 


0018 




BZR 


8 


D+ 




♦00,0 


0019 




CAD 


6 


ERROR +48 


A 


#00,0 


0020 




FMU 


6 


ERROR+48 


A 


,00,0 


0021 




STA 


6 


ERROR+48 


A 


• OOiO 


0022 




BUN 




s- 




• 00,0 


0023 


*D 


BOF 


8 


F+ 




• 00,0 


002^ 




BfR 


8 


E+»12fi0 




,00,0 


0025 




BUN 


- 







• 00,0 


0026 


*E 


CAD 


6 


ERROR+51 


»1^0a 


,00,0 


0027 




FDV 


6 


ERROR+50 


C 


»00»0 


0028 




BUN 


-. 







• 00,0 


0029 


*A 


CFR 


6 


FRIiOR + 24 


*o= 


• 00*0 


0030 




BCH 


- 







•oo«o 


0031 




LDR 


3 


$FLFX$ 




•oo*o 


0032 




BUN 


6 


ERROR +7 




• OOtO 


0033 


*F 


CLA 








• DO^O 


0034 




BfR 


- 


0»12»10 




• 00.0 


0035 




LDR 


8 


SFLFXS 




• 00#0 


0036 




BUN 


6 


ERROR 




• 00,0 


0037 
37 




FINl 


f 


1 

$FLFX 





.00,0 


0100 


FRROR 


DEFN 


1 


100 


•oo»o 


0200 


LOG 


DFFM 


1 


200 


,00.0 


0300 


FXP 


DEFN 


1 


300 


tOO»0 


o^oc 


FIX 


DEFW 


1 


400 


tOOgO 


0000 


FLFL 


F4247 


6»1»0 


t\r\ n 


f\^r> t 




CTD 


£ 


r-DOnD J SifS r 


fUU^W 


WW i 




^J I l^ 


U 


■:; jM>v.'-v -r ^ •<• V. 


• 00*0 


0002 




STB 


8 


A + f41 


iOO,0 


0003 




5TA 


6 


ERR0R-f48 A 


tOOfO 


0004 




DLB 


8 


FLFL ♦44»0 


#00.0 


00C5 




BOF 


6 


ERR0R+2I 


tOO»0 


0006 


»C 


LDB 


8 


FLFL 


iOOtO 


0007 




32A 


8 


D-!- 


• 00*0 


oooe 




BMA 


8 


E+ 


♦ oo»o 


0009 


*F 


STP 


6 


LOG 


• OOtO 


0010 




BUN 


6 


LOG 


#00»0 


00 !i 




FMU 


6 


ERROR-i-50 C 


#00^0 


0012 




BOF 


a 


G-f 


• oo#o 


0013 




CFA 


8 


+5311282666 


tOO.O 


0014 




BCH 


8 


Y + 


.OOfO 


00 !5 




STP 


6 


EXP 


♦ OOfO 


0016 




BUN 


6 


t'kP 


♦ 00,0 


0017 


»A 


LSA 







tOO.O 


0018 


♦2 


LOe 


8 


FLFL 


«00*0 


0019 




BUN 


- 





.00*0 


0020 


*D 


CFR 


6 


ERROR + 24 ai 


• 00, c 


0021 




BCH 


- 





♦ 00.0 


0022 




BUN 





X + 


• 00*0 


0023 


*E 


SOH 






• 00.0 


0024 




SLT 




10 


• 00,0 


0025 




STP 


6 


FIX 


tOOtO 


0026 




3UN 


6 


FIX 


iOOfO 


0027 




SOR 






• 00«0 


00?8 




B2R 


8 


1 + 


• 0O»0 


0029 


*X 


LDB 


8 


FLFL 


• 00«0 


0030 




LDR 


8 


$FLFL$ 


• OOiO 


0031 




BUN 


6 


ERROR-fT 


iOO#0 


00?2 


*! 


SLS 




10 


• OOfO 


0033 




RND 




, 


iOOfO 


0034 




SR5 




4 


#00.0 


00?«i 




STA 


8 


A-»41 


• OOfO 


0036 




CAA 


6 


ERROR-f'48 A 


.00«0 


0037 




BUN 


8 


F- 


iOOfO 


0038 


>y 


LOR 


8 


$FLFL$ 


• 00*0 


0039 




LDB 


8 


FLFL 


• 00.0 


0040 




BUN 


6 


ERROR 


• 00.0 


0041 


*G 


cnt> 


6 


ERROR+48 A 


• OOtO 


0042 




MUL 


6 


ERROR+50 C 


♦ 00*0 


0043 




BPA 


8 


Y- 


• OOtO 


0044 




CLA 






• 00.0 


0045 




BUN 


8 


Z- 


• OOtO 


0046 




FTNI 


1 




46 








SFLFL 




0047 








+5311282666 



• 00*0 


OlOO 


frkoR 


: DfFM 


100 




•oo«o 


0000 


LOG 


CRB 








«00i0 ' 


0001 




BMA 


8 


F^- 




tOOiO 


0002 




BZA 


8 


F+ 




• OOtO 


0003 




SRT 




2 




^rtf^ . n 


nr^^A 




CT A 


o 


C- V F> * i *> 




9 w g -^ 


V V V -T 




.J ! ^, 


w 


^f\-- T-^ C, 




tOOtO 


0C05 




SLT 




4 




iOOgO 


00 06 




CFA 


8 


CPl-^ 





tOO.O 


0007 




BCL 


8 


SMALL 




• '^ V ^ V- 


0008 




CFA 


8 


CP2^ 




• 00*0 


0009 




BCH 


8 


SMALL 




tOOtO 


0010 




SRT 




1 




«00»0 


oon 




ADO 


8 


4-316227766 




♦ OOiO 


0012 




STA 


6 


ERR0R+4e 


A 


tOC^O 


0C13 




SUB 


8 


+632455532 




♦ OOtO 


0014 


. *CP1 


F4246 


1014#15tFRROR+43 


♦ 00*0 


0015 




STA 


6 


ERROR+48 


i" 


•oo*o 


0016 




MUL 


6 


BRR0R+4e 


^ 


«00»0 


0017 




STA 


6 


ERROR4.49 


(3 


• 00*0 


0018 




MUL 


8 


+0410597044 




*00#0 


0019 




ADO 


S 


+0057228327 




»00i0 


0020 




MUL 


6 


ERROR+49 


B 


tOOtO 


0021 




AfJO 


8 


+0250341093 


^ 


»00i0 


0C22 




MUL 


6 


ERROR+49 


w 


• OOtO 


0023 




AOO 


8 


+0282433571 


w 


♦oo»o 


002^ 




MUL 


6 


ERROR+49 


B 


tOOtO 


0C25 




ADD 


8 


+0400193033 




• 00*0 


0026 




MUL 


6 


ERROR+49 


B 


•oo»o 


0027 




AOO 


8 


+0666661710 




#00#0 


0028 




MUL 


6 


ERROR+49 


B 


»oo,o 


0C29 




AOO 


8 


4.2000000037 




fOO.O 


0030 




MUL 


6 


ERHOR+48 


A 


tOOiO 


0031 




ADO 


8 


+1151292547 




•oo»o 


0032 


*A 


BFA 


P 


D+#22*O0 




«00«0 


0033 


*CP2 


F424 


9858#48#1 




»00.0 


003^ 




IBB 


8 


A^f 1 




• 00.0 


0035 


*D 


STA 


9 


RGN#08 




•oo.o 


0036 


*B 


CAO 


8 


EXP 




•oo«o 


C037 




FSU 


8 


+5251000000 




• 00*0 


0038 




BCL 


e 


»+2 




• oo.o 


0039 




FAD 


6 


ERROR+51 


= 1 


•oa*o 


00^0 




FMU 


8 


+5123025851 




• 00*0 


0041 




FAO 


9 


RGN 




♦ 00»0 


0042 




LD8 


8 


LOG 




tOO.O 


0043 




BUN 


« 







•oo«o 


0044 


SMALL 


BFA 


8 


A+tll#l 




• 00*0 


0045 




SRT 




1 




• 00,0 


0046 




SUB 


8 


4-2000000000 




• 00«0 


0047 


♦A 


FAD 


8 


+1000000000 




• OOiO 


0048 




BZA 


8 


E+ 




♦ 00.0 


0049 




STA 


6 


ERROR+48 


A 


• 00«0 


0050 




IFL 


6 


ERROR+48#22* 


39 


• 00*0 


0051 




CAD 


6 


ERROR+48 


A 


• 00*0 


0052 




FMU 


8 


*5025OOOOO0 




• 00*0 


0053 




FAD 


6 


+5033333333 





• 00«0 


00 54 


FMU 


6 


FRROR+48 


A 


tOOgO 


0055 


FAD 


8 


-5050000000 




,00*0 


0056 


FMU 


6 


ERROR+48 


A 


t00«0 


0057 


FMU 


6 


ERROR+48 


A 


,00»0 


0058 


FAD 


6 


FRROR+1^8 


A 


• 00.0 


0059 »E 


STA 


8 


RGN+3 




•kVH t\ 


A/«^ n 


* r»n 


rt 


n ._ . o 




«v;u§u 


vvs--' 


I DD 


w 


D— » -7 




• 00.0 


0061 *F 


LDR 


8 


$LOG$ 




• 00 iO 


0062 


LOB 


8 


LOG 




• 00,0 


0063 


BUN 


6 


ERROR+7 








CflST . 


4900000000 




• 00.0 


0065 






5000000000 




iOOiO 


0066 






5100000000 




#00^0 


0067 






00 




• OOfO 


0068 FXP 






5200000000 




iOO^O 


0069 
069 
-070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
78 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 


FINl 


r 


LOG 

+1000000000 

+2000000000 

+5033333333 

+5123025851 

+0316227766 

+005722B327 

+0632455532 

+0-2^00193033 

-502500OO00 

SLOG 

+0666661710 

+2000000037 

+041C597044 

-5050000000 

+5251000000 

+0250341093 

+0282433571 

+1151292547 





iDO.O 


01 00 


ERnOR DEFN 


100 




• 00^0 


0000 


FXP CLR 






«00»0 


0001 


LDR 8 


EXP2 




♦ 00,0 


0002 


STR 3 


F*»04 




•oo»o 


0003 


STA 8 


EXP. 12 




. rtn ^ n 


A i^ n /. 


r-ff- « o 


-».c>i t «^e'^/' iic 


nr\ 


• "^ m ^ 


V ■'-• '.' T 


V r « o 


•r -JJ i i-ccccsw-' 


f V \,' 


»00.0 


0005 


BCH 8 


B-i- 




,00i0 


0006 


SLT 


2 - - - -■ 




tOOtO 


0007 


STR 8 


*+l*02 




#00i0 


0008 


CLR 






♦oo»o 


00 09 


LDB S 


♦-1 




0OO«O 


0010 


MUL S 


+4342944819 




♦oo»o 


0011 


IBB 8 


»+3t9949 




iOO^O 


0012 


SLT - 


1 




tOOfO 


0013 


LBC 8 


*-l 




»00t0 


0014 


SLT 


8 




♦ 00,0 


0015 


STR S 


TS*22 




•oo«o 


0016 


IFL 8 


TS#22»51 




tOO^O 


0017 


SLT 


12 




#00,0 


0018 


CLR 






• 00*0 


0019 


rss s 


*+2«10 




• 00,0 


0020 


SLT - 


i 




•00*0 


0021 


SLT 


10 




#00,0 


0022 


STA 6 


ERROR+50 


4^ 


• 00.0 


0023 


MUL 6 


ERROR+50 


Vc 


•oo#o 


0024 


STA 6 


ERROR +48 


W'^ 


• 00«0 


0025 


nUL s 


-17159 




• 00,0 


0026 


AW) ^ 


•4893232 




#00,0 


0027 


MUL 6 


EKKOR+48 


A 


• 00,0 


0028 


ADO 8 


-169203872 




• 00*0 


0029 


MUL & 


ERROR+48 


A 


• 00,0 


0030 


ADO 8 


-995711477 




• 00*0 


0031 


MUL 6 


ERROR-f50 


C 


• 00,0 


0032 


STA 6 


ERROR4'50 


c 


•oo,o 


0033 


STA 6 


ERROP+49 


B 


• 00,0 


0034 


CAD 8 


+4173C4 


A 


• 00,0 


0035 


MUL S 


ERR0P+4a 


w 


• 00,0 


0C36 


ADO 8 


4-3^5418755 


w 


• 00.0 


0037 


MUL 6 


ERROR+48 


A 


• 00,0 


0036 


ADD 8 


■l'529087016 




• 00,0 


0039 


MUL 6 


ERROR+48 


A 


• 00,0 


006 


ADO 8 


•^864^64000 




• 00,0 


0041 


ADL 6 


ERROR +49 


B 


• 00,0 


0042 


SUB 6 


ERROR+50 


r 


• 00*0 


0043 


SRT 


3 




•oo.o 


0044 


D!V 6 


ERR0K'+49 


B 


• 00*0 


0045 


ADA 8 


TS 




• 00.0 


0046 


DFL 8 


FXP?12»10 




• 00,0 


0047 


LDB 8 


EXP 




• 00,0 


0048 


BRP 8 


A-f 




,00,0 


0049 


BUN - 







• 00,0 


0050 


*A STA 6 


ERROR450 


C 


• 00,0 


0051 


CAO 8 


+5099999999 




• 00*0 


0052 


F424e 


9^99f4it» 





• OOtO 


0053 




FOV 


6 


ERROR+50 


.00»0 


0054 




BUN 


- 





.00*0 


0055 


*B 


Loe 


B 


EXP 


• OOsO 


0C56 




BMA 


6 


C + 


tOOfO 


0057 


*E 


LDR 


e 


EXPl 


•O0«O 


0058 




BUN 


6 


ERROR 


. fsf\ _ n 


nr> en 


aLr~ 


^f A 






W ^ "!-' » '«' 


V w .#-7 




V. fc. .". 






• OOtO 


0060 




BUN 


- 





• 00,0 


0061 


Ts 


GNS7 




-0 


♦ 00*0 


Gn62 


PKP2 


HLT 


8 


EXPl 


i00»0 


0063 


EXPl 


CNST 




SEXP$ 


• 00»0 


0064 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 




FINI 




1 

♦5099999999 

♦0035413755 

+431,2944819 

♦00O0417304 

♦0864864000 

♦0529087016 

-0169203872 

♦5311282665 

-0000017159 

-0004893282 

-0995711477 



,00»0 


OlOO 


ER^OR D€FN 


100 


»00t0 


ooco 


SORT Ct-B 






,00t0 


OOCl 


LDB 


8 


SORT 


iOO^O 


0002 


Q2A 


- 





,00,0 


0003 


BMA 


8 


A+ 


. rtn . n 


0004 


CT* 


e 


A «Qo 


O w B ^ 




■-■ ' f^ 


€? 




♦ OOgO 


0005 


STA 


8 


FXP*23 


»oo*o 


0006 


C-AO- 


6 


gRROR+47 3 


,00*0 


0007 


MUt. 


8 


EXP 


#00,0 


0008 


SUB 


8 


+2550C00OO0 


♦oo»o 


0009 


STA 


8 


EXP»23 


• D0»0 


0010 


CFA 


8 


EXP#31 


»00,0 


0011 


BCE 


8 


»+3 


f00»0 


0012 


BMA 


8 


*+2 


.00.0 


0013 


IfL 


8 


EXP#22»1 


.00.0 


0014 


CAO 


8 


-4916450338 


.00.0 


0015 


FMU 


8 


A 


♦ 00*0 


0016 


FAD 


8 


+5041117101 


.00.0 


0017 


FMU 


8 


A 


.00.0 


0018 


FAD 


8 


+5062697923 ^^ 


•00,0 


0019 


STA 


6 


ERROR+49 KB 


#00.0 


0020 


CAO 


8 


A ^ 


.00.0 


0021 


FOV 


6 


ERROR+49 B 


.00.0 


0022 


FAD 


6 


ERf?0R+49 8 


.OOfO 


0023 


FMU 


8 


+5050000000 


.00.0 


0024 


STA 


6 


ERROR+49 B 


§00.0 


0025 


CAD 


8 


A 


.00.0 


0026 


FDV 


6 


ERm?R+49 B 


.00,0 


0027 


FAD 


6 


FRm)R+49 ' B 


• 00.0 


0028 


ADO 


8 


EXP 


.00.0 


0029 


BCE 


8 


B+ 


• 00.0 


0030 


FMU 


8 


+5015811388 


• 00.0 


0031 


BUH 


~ 





»oo.o 


0032 


*B FMU 


8 


+5050000000 


.00.0 


0033 


BUN 


« 





• 00.0 


0034 


*A ' LDR 


8 


$ SORT 5 


• 00.0 


0035 


BUN 


6 


ERROR+7 


#00.0 


0036 


A CNSl 




5110000000 


#00.0 


0037 


PXP CNSl 







.00.0 


0038 
0038 
0039 

0040 
0041 
42 
0043 
0044 


FIN! 




1 

-4916450338 

+5015811388 

+2550000000 

+5050000000 

$SORT 

+5041117101 

+5062697923 



«5(11)= 



tOOtO 


THE 


LIBRARY PRROR SUBROUTINE 


♦ OOfO 


0000 


FRROR 


OEFN 


«- 




tOOtO 


0000 


ERA 


STP 8 


C + 




♦ 00^0 


0001 




BUN 8 


fk^ 




»00t0 


0002 


MSGA 


CNST 


SRESULT 


OUT OF RANGE IN 


AM 1^ 


nMj%«« 


•- n n 


(T Tr> a 


t^ . 




§ u v $ u 


uw / 


XZ^^ 


a ! J" o 


V-T 




• 00,0 


0008 




BUN 8 


A+ 




•oo#o 


0009 


M5GB 


CNST 


SRESULT 


UNDEFINED FOR 


«00«0 


001*1 


ERC 


STP 8 


C + 




,00*0 


DC 15 




BUN 8 


A + 




♦ 00,0 


0016 


MSGC 


CNST 


SRESULT 


ILL-DEFINED FOR 


• oo»o 


0021 


ERD 


CLL 8 


OUT-fS 




• OOiO 


0022 




STP 8 


C + 




*oo,o 


0023 




BUN 8 


A4-42 




,00,0 


0024 


Z 


CNST 







,00,0 


0025 


msgd 


CNST 


S ARITHMETIC OVERFLOWS 


,00,0 


00 Z9 


*A 


STR 8 


OUT 4.5 




,oo«o 


0030 




CAR 






,00,0 


0031 




STB 8 


8'l'»04 




,00,0 


0032 




LDB 8 


OUT! 




«oo,o 


0033 


*c 


RTF 


*»5 




,00i0 


0034 




CWR 8 


OUT-^lO•i 


5^2 


• 00,0 


0035 


*B 


BUN 


* 




• OOtO 


0036 


OUT 


CNST 


0»0»OtO 


♦0»0»0»0f 0»0»0 


,00,0 


0047 


H 


CNST 


5000000000 


♦ 00,0 


0048 


A 


CNST 







• 00,0 


0049 


B 


CNST 







• 00,0 


0050 


r 


CNST 







,00i0 


0051 


OWE 


CNST 


5110000000 


,00,0 


0052 


OUTl 


HLT 8 


OUT 


, 


,00*0 


0053 




FINI 


ERROR 





iOO^O 


0000 


REmo OiO 


tOO.O 


0000 


READ F4247 SWfl»* 


.oi«o 


0001 


ST A 8 Xf04 


*02^0 


0002 


ST A e Yf04 


•03«0 


0003 


IFL 8 Y»04tl 


A » /*» 


rtAAA _ 


tSTD OH 


« V ^ • '^' 


i^W<T 


, J , , u ■^ 


t05#Q 


0005 


BON 8 X 


• 06#0 


0006 


- LOB-8 SW - 


»07#0 


0007 


ctt - 


•oa.o 


0008 


Ctt 8 S6 


• 09i0 


0009 


A Ct>R W+I6»l 


• 10*0 


ooio 


CtL 8 ! 


• 11«0 


0011 


TFL 8 I«05f2 


#t2«0 


60X2 


LD© 8 5W 


»13»0 


0013 


res 8 8f99^ 


• 14#0 


0014 


&LB 8 S6#64f0 


• 16*0 


0019 


CAD M4«l 


bU*o . 


0016 


tm 8 ACt^999 


♦i7»0 


0017 


B DLB Q I»^>0 


il-BtO 


0018 


j CA^ - 1^+1 


• t9*0 


0019 


U&B *6 1 


•2a»a 


0020 


SLA - 


»21»0 


0021 


l¥L B I»05#2 


♦22#0 


0022 


tDR 8 86 


-;*t3*o 


0023 


BfR 8 ADtOOfO 


•t4«0 


0024 


mm 8 At HO 


♦ 25»0 


0QZ5 


t)La 3 S6t44tO 


• ?6i0 


0056 


BTA 8 K»22fl$ 


♦2TtO 


0027 


SRA 8 


#2«*0 


0028 


StA - 


#^•0 


0021> 


A0L 8 N 


•30 tO 


0030 


!H?L 8 S6»41t2 


#tliO 


0031 


BRt» 8 8 


^3?2 #0 


0032 


cm 8 w 


♦53 #0 


0033 


STP 8 U 


»34#0 


0034 


Bilfl 8 X 


• 35*0 


0035 


»B OfL H S6»52tl2 


«36tO 


0036 


BUN 8 B 


tf?«0 


0037 


AO t>»B 8 A #162 


• 3«i0 


0038 


BFA 8 6fU«8 


• 39*0 


0039 


BFA 8 Pf22#03 


•40t0 


0040 


BFA 8 Q» 22*20 


•41«0 


0041 


BfA 8 Q»22f34 


•42«0 


0042 


6t=A 8 C#22»23 


• 43.0 


0043 


^A 8 B-»22»13 


•44*0 


0044 


BFA 8 A*»22»14 


i^5i0 


0045 


LDB 8 S3 


tl^.O 


0046 


IBB 8 8 #9999 


•47#0 


0047 


STP 8 U 


•48t0 


0048 


BUN 8 W 


*49»0 


0049 


BUN 8 B 


•50. a 


0050 


*A nU 8 I»94»16 


»51»0 


0051 


BUN 8 


• 52»0 


0052 


K CLt 8 S6 



»53t0 0053 CAO 8 N 

.54»0 0054 SIP 8 U 

.55»0 0055 IBB 8 Xt9992 

»56tO 0056 BUN 6 B 

»57#0 0057 C IFL 8 S5»00«l 

•56*0 0058 STP 8 U 

•59«0 0059 BUH S W 

t60«5 ^^^^ ^^^ ® S2»00fl 

"i-ft-a^-o -■■^o^'^-^.-.iiii:i::i.::::bM' ":8 b 

i62#0 0062 Q IFL 8 STV00»T 

♦ 63*0 0063 BU^i 8 S 

»64»0 0064 P LOR 8 T 

♦65*0 0065 SIR 8 Oi22 

#66#0 0066 IFL 8 S4»00#l 

«67«0 0067 BUM 8 B 

»68tO 0068 G SLA 1 

.69«0 0069 LOR 8 N 

»70#0 0070 SLT 1 

•71»0 0071 STR 8 N 

*72tO 0072 DFL 8 D»22fl 

•73«0 0073 IFL 8 S3»00»l 

♦74t0 0074 BUH e B 

»75»0 0075 W LDR 8 S2 

#76#0 0076 BZR 8 E 

•77#0 0077 CA© 8 H 

i78»0 0078 SLA 8 

*?940 0079 mt> 8 R 

»80t0 OOSO STA 8 H 

*81#0 0081 CM> 8 F 

•82«0 0082 LD6 8 SI 

•83#0 0083 0«8 8 H»l 

i84i0 0084 FWU 8 N 

t85»0 0085 BUN 8 J 

#66*0 0086 H rOV 8 N 

•87«0 0087 J LDB 8 55 

t88«0 0088 !>B6 8 L»l 

»89#0 0089 X STP * 

♦90«u 0090 Y BUN # 

,91#0 0091 BSA 8 1*9 

•92.0 0092 STB 8 Yf04 

•93#0 0093 V LDB 8 S 

i94«0 0094 CLL 8 

•95«0 0095 RTF 8 Dt7 

•96i0 0096 U BUN ♦ 

f97»0 0097 L STA 8 F 

•98 #0 0098 BUM 8 V 

•99#0 0099 2 LDB 8 READ 

ItOO^O 0100 CLL 8 5W 

l*Ol#G OlOl 3UN - 

U02#0 0102 H CAD 8 N 

It03i0 0103 LDB 8 54 

1#04«0 0104 TfiB 8 S»9999 

lt05#0 0105 ADD 8 D 

l«06i0 0106 FAO 8 D 

1#07#0 0107 S LDB 8 SI 

U08»0 0108 IBS 8 J»9999 



U0o«0 


0109 




LSA 


1 


ItlOiO 


0110 




BU-N 8 


J 


ltll»0 


Olll 


AC 


CFA 8 


ST1#08 


l*12iO 


0112 




BCU 8 


B 


lil3«0 


0113 




LDR 


M-l-2 


ItlAfO 


0114 




CFR e 


ST2fOO 


Itl5f0 


0115 




BCU 8 


8 


!tl6«0 


0116 




LDe s 


$^ 


1*17#0 


0117 





r^L •* 


OtOOtl 


U18.0 


0118 




BUf^ 8 


z 


U19t0 


0119 


1 


CNST 


*580O0OOO00 


l»2C.O 


0120 


STl 


CNST 


$5SENT$ 


i«21f0 


0121 


ST2 


CNST 


SrNEL s 


U2?*0 


0122 


R 


CMS! 


45110000000 


It23t0 


^1Z3 


SW 


HLT 





l#?*tO 


0124 


D 


HLT 





l«?5tO 


0125 


SI 


HLT 





1»26«0 


0126 


S2 


HLT 





1*27.0 


0127 


S3 


HLT 





U28tO 


0128 


54 


HLT 





l«29fO 


0129 


55 


HLT 





U30t0 


0130 


H 


HLT 





USliO 


0131 


S6 


HLT 





1»32#0 


0132 


F 


HLT 





l«33tO 


0133 


T 


HLT 





li^^^tO 


0100 


M 


DETN 


100 


1#35#0 


0134 




FIN! 


i 



♦ O0*^ 


THE 


muE pnocEomE 


^oOfta ;^ 


0000 


REORD 


m%o 


oido 


ERROR DEFI* 100 


•01 #0 


0000 


tOCM 


• 02«0^ 


^ oi» 


zjom tm'n 125 


•05t0 


012^ 


At^HA pfF« 1^6 


•o*»o 


0127 


BfTA 0i^N 127 


•05^0 


0128 


6AWWA Dff'N 128 


#o«#o 


0139 


WIDTH 1>EFN 129 


ikO7»0 


0130 


©r t?£Frf 130 


•08*0 


01^1 


0€C C€FN 131 - 


*09ft0 


Oist 


NEXtN O^H 132 


• 10*0 


. 0133 


0€LTA l«*^W 133 


• n#o 


Ol^?* 


TfilSl^ DfiFN 134 


♦ tiliC^ 


0000 


WRiTf CNST OlOOOlOfOOO 


•X9tO^ 


om?i 


ST A 8 F0RWT*04 ^ 


• H^tO 


0002 


LOB 8 *+2 


*15*0,^ 


, 0003 


RTF 8 SlGM2tl 


«U«t^^ 


0004 


RTF 101 #30 


•n#a 


r 0005 


Um 8 WRITE 


• t8»« 


0006 


STB 8 XrT»04 


#19*0 


0007 


LDR - 9999 


#20^0 


0008 


%. LSA 9 §7557 


«21«0 


0009 


QTR 8 I-f»22»*00 


•r2»o 


0010 


Ltft 100 


• «3«0 


0011 


StP - 


• ?*i»0: 


0012 


BF« - l#Z2»0i 


*t5t0 


0013 


«f L STA NEXTN 




0014 


. STB 8 OUT #04 


0015 


LOR OP 


iS^iQ : 


0016 


BZ^ 8 O^ST 


♦a^iO^' 


'0017 


CAO THtlSN 


• 30«0 


0018 


CLt 0€tTA 


#31«0 


0019 


BFR 8 F:F#52#46 


•S^tO 


0020 


BfR 8 XIC>52*67 


•f3«0 


0021 


mn 8 M«&2»49 


•S%«o 


0022 


»FR 8 SSf^2f62 


«»5t0 


0023 


BFR 8 AA#92»41 


#w^*o 


00?4 


BW 8 ERft 


• S7t0 


0021J 


AA LOR 8 miHE 


• f8#0 


0026 


»A Ort. WlDTHt^l 


• ^•0 


0027 


STP 8 E.XITI^ 


•40*0 


0028 


BUN 8^ mBRZ 


•4i«e- , 


0029 


CAO WimTH. 


##2iO 


0^^t)^ 


^ 82A 8 cycle: 


•♦t»o 


0031 


«FR 8 0+^22^9^ 


•44*0 


0032 


5LT 10 


•46»0 


. 0033 


BUN 8 A* 


•44^*0 


00»C 


OVTST iBi^ 8 WRITE+l 


•47»0 


0035 


BOr 6 CRIK)R4-21 


•4ft#Q 


0036 


FORMt cm 9999 


• #^•0 


0037 


fFL 8 FOR«Tt04rl 


•io^o 


0038 


&Pk 8 04 


»I^1*0 


- m^ 


LOR 8 fWINE 



•52*<^ 


^©40 ■ 




mA B R* 


.m^o 


0041 


*?.'^-'-'V 


BFA 8 FCmMT»22fl4 


•54 tO 


0042 




stir's EXlTl ^ 


55^0 


0043 


4WINE 


F4^4a 9900*30^ SUBR2 


•f6f%. 


00#4 




BFR 8 F0R«Tt22#99 


•57^ 


0045 




StT 10 


. e o i. A 


AAA^ 




atlM ft /"^ir^ 


»-fV»^ 


^•Tr-rv 




. i_# "wr« -» %?» - i;^ -■J- 


• !i9#0 


0047 


BB 


CA© WI&Tif 


•40»0 


004B 




ADL ZOUT 


•«I*0 


0049 




AOL zoyr 


»42#0^ 


nrtttn 


/•vri tt 


r*r\ no 


\F ^* _* W \ 


\, i^«i,i_ 


'\»«-«vr \^ • 


♦d3#0 


0O51 




STA 8 OVTST#33*00 


sMfO 


0052 


♦0 


8FA 8 *+2»33»ObO. 


• 6S^0 


0053 




SUB 8 +0»010000000 . 


•66^0 


0054 




STA OP 


*67#0 


0059 




ST A m€fOZ 


t^*0 


0056 


12 


SRT 2 


•^#0 


0O97 


r ■ 


ST A WIDTH *a3 


• 70^0 


oa5« 


■ . 


BTA 8 SB* 72 ♦^^ 


• Tl^O 


0059 




B^A 8 VW#72#66 


•'T2i0 


^60 




Bf^-B PP*72f57 


#ra*a . 


"^0061 




jrA 8 TT«72i63 


•T*»0 


0062 




BTA 8 CCf7^»43 


• 75i0 


0063 




e^A 8 fOftMr*03*00 


•?<^»o 


0064 


*& 


CAD NEXTN 


•T7»a 


0065 




.ST A TmsK 


• 7«*0. 


0066 




BSA 8 98»9, 


• 7S#0 


0Q67 


owt 


BUN 99^9 . 


y8(X«0 


0066 


^ 


LOB 8 FOWMT 


Aftl^O 


0069 




BTA 6 Z4f66iidO 


»,i2fO 


0070 




StT 3 


#83.0 ~ 


0071 > 




B^R 8 S'¥f03*eQ -\: 


*t4»0.. 


0072f 


*& 


^B 8 -fOOlOOOOOOO 


• 85»Q 


. 0073 




BTA S t9999t33#00 


•«**o - 


0074 




f>FL -. 9999',t63#l. 


• 87t^ 


- 0075 


*A 


Lt>n - 991^ 


«»8«0 


r0076 


. 


STR 8 F0Rm»04 


• 89t0^ , 


0077 




BU» 8 FORWT 


#90*0 - 


- 0078 


♦S 


STA .^ 9999-»33 


•ni<^ 


■0079. 




BUfI 8- 


•92»0^ 


t)080 


I999^.CA0"*- ^999 


• 9S«0 


,0081 


103 


SRT 3 


•<N^4a 


0062 


^ 


STA - 99^9 1^^* 


•^♦c^' 


0083' 




; BUN 8 FORMT 


• ^•0.; 


<WMN^ 


.»z 


CAO NFXTH 


•97*0 ,«.. 


0«8$ 


^xn./. 


. BSA ^99 » 9 


««ll«0 


0*J'S* 




Btltt O A. 


, IfiW 


0087" 


(X 


CWR Xa4tfl 


*«0^»<?; : 


', 008B 


WW 


$«7 3 


|«oua 


0089 




STR 8 ♦♦1»31 . 


1«02«0 


0090 




CWR 124ft 5a 


1«03#0 


0091 


*c 


LOB 8 •♦2 


It04i0 


0092 




RTF 8 S!6N2»1 


'♦05«0 


009* 




RTF 101 t 24 


. ^06tO 


11094^ 


' ' 


BUN 8 CtCLE 


U07«0 


0095 


Pl» 


CWR Jt24*5l 



l#XliO 

lrX2iO 

X#?2#0 
X«23«0 

I#t9#0 
l*30«0 
X»^1#0 
XftS2»0 
XtfStO 

XffSiO 
X#l*tO 

Xt4&#0 

I»42#0 
Xi43»0 

X*46t0 

X#47tO 

Xi%9iO 

X#5X«0 
1a52«0 

XcMiO 
X»5tt0 
1|»S«#0 

x##o#(> 

X •#!•<> 
^#62«0 



00^ 

00ft 

0098 

CK)99 

01 00 

01^1 
ni fit 

0103 
0104 

01 or 

0106 
0107 

oiot 

0109 
01 lO 
0111 
0112 
0113 
0114 

on3 

0116 
OUT 
Oils 
0119 
0120 
0121 
0122 
012S 
0124 
0125 
0f26 
0127 
0128 
0129 
0130 
0131 
0152 
013S 
0134 

on5 

0136 
0137 
0138 
013^ 
0140 
0141 

A* A"* 



0143 
0144^ 
0146 
0146 
0147 
0148 
0149 
0150 



BU» 8 C- 
TT ^A 8 A-fttiStO 

SW) 8 B^»l 

inm 8 19999 

Bt»N 8 TT 
♦S CNST 21602020202 
*l^ CAO 20UT 

B2A 8 CYCUE 

A©& 8 IB 

snr ^ ' 

STR 8 *-Ht32 

SPO 101 ♦99 

BW 8 C- 
11 "S LOB 8 110 

BlA S Q-t- 
♦C e^'A 8 !51»11»0 
*S STA THISN 
180 CAR 80 
«AJOR STB GAMMA 

CLt ALPHA 

STA At.PHA#04 

STR BETA 

CAO THISN 

SRS 10 

LSA if 23 

ADO «1I)TH 

SUB 6AMMA 

8WA 8 ERR 

AOL zoirr 

P424 500Otl9*20UT 

CA© THtSN 

Lm 8 120 

SIP 8 EXITI 

8«A 8 5UBR1 

DfL GAmA»00#l 

SftP 8 F-f 

LDR BETA 

S2R 8 CYCLf 

LOR 8 123 

STP 8 EXITl 

BUN 8 SUBRl 

CAD BETA 

SUb 8 H50 

LOB 8 12 

CU. i#fOTH 

FFL WIDTH »0OfS 

*F DTL ALPHA fOOil 
LOR ALPHA 

62R 8 H-f 
LDR DELTA 

B2R 8 1+ 

DfL DELTA »00fl 

LD« 8 180 

BUN 8 SOBRl 



123 



HO 



1#43«^ 


015t 


'■IP7 


4.0f* 8 103 


ums^ 


0lf2 




BUM 8 StJBftl 


1#«»0 ' 


0T55 


♦I 


CIS© TmsH 


X4i66»0, 


015* 




LDR 8 18 


iHr7«o 


01S5 


II 


SLT I 


i«68#0 


tns* 




STA tmsH 


^'^.«^«.n 


0T57 


S9BR1 


«iLT 18 


* v^'' • — - , 








1»70^0 


oiis 


StiBR2 


SRt 8 


liTltO 


^0^^lr59 


( 


LBC ZOMT 


UTtfO 


0160 




$tjr-^8 


r#73#o 


a^6i 




r^m ?OUT#9#fO 


I«7*#0 


016^ 




mm 8 EXtfita^ 


1*75 ftO 


0km 


lio 


tSA^^ 0*20 


I»76«0 


0t«4 


'.,^- 


AfW> - Its 


lirTtiO 


0165 




STA - 125 #00 


I47»t0 


0166 




in. 2(»JftO0*2 


li79#0 


01^7 


fxin 


eufi 9999 


i««o.o^, 


01^« 


•0 


O8B 8 I80r9 


:l»$l#t> - 


0169 


151 


€IM 51 


U«2#0 


0170 ^ 




DfBB #<;-#l 


l»SSfO 


0171 


1W 


cut 7557 .. 


l#«>^ftO 


0172 


-18 . 


SRT 8 


3itt5«0 


C^t7S 




C!FA 8 +50»04 \ 


Iv^fO 


Ot74 




STR THISN , 


%,#«7#0 


#3^75 




BCt 8 b+ 


l«t«»o 


01T6 


*t 


ST A 8 TEMP* 04 , 


1*I9»0 , 


. 0177 




{>Ft 8 TEMP»04«49 ; 


i»9Q»a, 


0178 




LD8 S Te«P 


1*9%%^ 


0179 




GAD OP 


I»92i0 


dieo 




SRT 4 


1^«93#0 


0181 




STR 8 B4'#42 ' 


1»94#0 


0182 




CAO 8;TEWP : 


U95i0 


0183 


7EMP 


GLR 9999 


l*9*iO. 


Ot&4 


»B 


IBB 8 MAJOR t^OOO 


li^f<> 


0185 


♦D 


USA 0*7557 


1»9«#0 


0186 




SUB 8 450 


J«t9#0 


0187 




STA DELTA 102 


2iO0«O 


0188 




CFR OPtOa 


2#euo 


0189 




BCE 8 *4.3 


2t02#a 


0190 


♦F 


CAD 8 4*50 


2i03gO 


0191 




B^H 8 E- 


2*0*iO 


0192 




CAB 8 191 


'2«05tO 


0193 




STA THlSNfll 


2iO&iO 


0194 




BUN 8 E- 


2#07«0 


0195 


FF 


DFL WIOTHi03*4 


2#08iO 


0196 




BftP 8 A* 


2#09#0 


0197 




BUN 8 ERRl 


2il0^0 


0198 




CAO 8 4-5000000000 


2«lliO 


0199 


♦ A 


B2A 8 *-'l 


2tl2#0 


0200 




CLR 7557 


2il3#0 


0201 




STA 8 H0»22 


2pl*tO 


0202 




SRT 8 


2»1S#« 


0203 




STR THISN 


2«UtO 


0204 




SRS 10 


2»lti0 


0205 




A0D OP 


2«18iO 


0206 




EXT 8 151 



ftl^iO 


0207 




CFA WTOTH»03 


t#20tO 


02 oa 




BCt 8 C-i^ 


2#n#o 


0209 


Emi 


IfL WIDTH •0»4 


un^o 


0210 


Em 


C)ID VIDTM 


t*m*o 


> 0211 




Aat ZOUT X 


2#a^iO 


0212 




ADL 20UT 


2425*0 


0213 




W^L ZOUTfOta 


2i26#0 


0214 




kfift 8 114 


2»27#0 , 


021^5 




STP 8 EXlTl 


2«2«»0 


021* 


- — 


I'^m^t^mmi 




0217 




BUN 8 CTCLE 


2»30#0 > 


02ia 


*c 


LDR 8 HO 


2*?l60 


0219 


*E 


CAO ill 


2»3p?»0 


0^20 


-^D 


L0B mc 


2*3^»0 


0221 


> 


im 8 MAJ0«#1 


2«54«0 


0222 


SS 


CLR 7557 


2*t5.*o; 


02^ 




SRT 8 


2 •3*^0 


022^ 




STR TMISN 


2*irT*0 


022S 


'!>%/•: 


tSA 0#14 


2«3ttO 


0226 




SUB 8 +50 


2*1f9»0 


0227 




CLR 7557 


2«4D«a 


0228 




BMA 8 A+ 


2*41t0 <- 


0229 


*C 


CFA 0P#02 


2»42«0 


0230 




8CH a ERR 


^•43#0 


0231 




m> 8 11 


2»44#0 


OiZM 




BUN 8s D* 


24#3,0 ; 


0235 


*A 


STA D€LTA#00 


2«#^«0. 


0234 




BUm 8 €*• 


2i#tiCr 


0235 


SfGMS 


; CNST 20000000(^0 


2*^»0 


0236 




r^INI WRITE t 




0236 




♦5000000000 


. . 


0237 




+0010000000 




0?38 - 




4-000 ?o 



,0^0 


0X00 


EFf^^ 


m^n leo 


♦otr*^ 


00t)0 


FIX 


CRB 


tOOaO 


omi 




SRI 8 


#50^0 


omz 




STA 8 Af-fO^ 


.O0tO 


oom- 




LD6 8 A-t- 


•iCKf.Or 


0004 


' ♦A 


CUA 


itWtO 


0005 




IBB 8 B-»-#994^ 


#00»0 


OOOfc/ 




!>^ S C^flO 


♦oe^o 


ooof- 




SLT - n 


tQ0«a 


OO<^0 - 


♦B 


LD© 8 f^tX 


800^ 


OOOf 




BUN'^- 


•c^c^A 


^00 IP 


♦€ 


row 8 0^ 


OOfO 


00 11 




LDR 8 SFlXS 


• CN>irO^ 


0012 




kOB 8 fiX 


»00#O 


oon 




BDN 6 E^RCm 


«oo»o 


0^4 


*u 


CLR 


♦oo#<x 


0015 




BUN 8 B- 


#00f0 


- 0016 




FINI FIX " 




u 




$FIX 



4mm 


tJOOO 


fLOAt CRB 


•0^.p 


aooi 


*B 


eTA r A+»22*«», 


•oo«P 


0CC^ 




SRA ,1 


^^4P 


0<)03 




im 8 rB-»l 


♦tH>^X) 


00 CH 


*A 


sni 9 


tOO^O 


0005 




<:/io 9 0+ 


nOC^O. 


0006 




SUT 8 


400^0 


0007 




rjw> 8 0^ 


^oc^^o 


0008 




L&B 8 FLOAT 


^OO<»0 


0009 




BUN -^0 


«ob»b 


OOJO 


*C 


CNST 58 


• 00*0 


OOll 




+59 


«00»0 


0012 




+60 


♦OjOiO 


00 IS 


♦0 


+!>80000eO#© 


♦OOi.0 


001% 




FlNl FLOAT 



